-MLIST LOC ,SEQ,BIN 
/REM_ 


PRODUCT CODE: Ac-F GOBA-MC 

PRODUCT NAME: CZKWLAO KW11-C DIAGNOSTIC 
DATE: JANUARY 1980 

AUTHOR(S) : VIJAY ANANDWALA 


MAINTAINER: (C.S.S. DIAGNOSTIC GROUP 





HE SOF — ak faite IN THIS DOCUMENT IS FURNISHED UNDER A 
We) ag Y ONLY BE USED OR COPIED IN ACCORDANCE wats 
TERMS OF "SUCH LICENSE. 


T 
L 
T 
past a. EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
Tt 





OR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
HAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT: 1980 DIGITAL EQUIPMENT CORP. 
MAYNARD MASS. 


SEQ 0001 





SERIES OF TESTS DESI 
OPERABILITY OF THE KW11-C CLOCK. 


DIAGNOSTIC PROGRAM PROVIDES A 
GNED TO VARIFY THE ge ~ 





AND ONE 
TEST 1S VISUAL ONLY HOWEVER ALL TESTS WILL RUN WITH 
WITHOUT A DISPLAY C C STEM. 

THE DIAGNOSTIC MODULE CONSISTS OF 17 TESi 
ssuenrce VARIOUS SUPPORTING SUBROUTINES AND 












REQUIREMENTS: 


EQUIPMENT 

PDP 11 PROCESSOR 

CONSOLE DEVICE (LA30, LA3é,VT50,VT100 ETC) 
KW11-C CLOCK 


DESIRED EQUIPMENT 


KW1i-P OR KW11=-L CLOCK 


PROGRAM STORAGE 
PROGRAM REQUIRES 8 K WORDS OR MORE MEMORY 


SOF TWARE 


ABSOLUTE LOADER OR OTHER INPUT MEDIUM 
SWITCH REGISTER ASSIGNMENTS: 


SWO8(1)=LOOP ON TEST IN SWR<7:0> 
$W08(0)=DO ALL TESTS IN SEQUENCE 
SWO9(1)=LOOP ON ERROR 
$WO9(0)=CONTINUE ON ERROR 
SW10(1)=BELL ON ERROR 
SW10(0)=NO BELL ON ERROR 
SW17(1)=INHIBIT La He a 
SW11(0)SALLOW ITERATIONS 

a 8 Fat ae! ERROR TYPEOUTS 
SW13(0)=ALLOW ERROR TYPEOUTS 
SW14(1)=LOOP_ON TEST 
SW14(0)=DON'T LOOP ON TEST 


SEQ 0002 


NOTE : 


COMPUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A 
SOFTWARE SWITCH REGISTER LOCATED IN MEMORY AT LOCATION 
176 CALLED SWREG. THIS LOCATION CAN BE CHANGED EITHER 
MANUALLY OR BY TYPING THE CNTL+G KEYES TOGETHER 

THEN RESPONDING TO THE TERMINAL DIALOGUE. 

LOADING PROCEDURE : 








aan fy 90 PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 


IF THE PROGRAM RESIDES ON A MASS STORAGE DEVICE SUCH AS 
MAGTAPE OR DISK REFER TO THE XXDP USER’S GUIDE. 


STARTING PROCEDURE : 


STARTING ADDRESSES 


INITIAL STARTING ADDRESS IS 200 
RESTART ADDRESS IS 200 


STARTING SEQUENCE 


LOAD PROGRAM ACCORDING TO LOADING PROCEDURE 
LOAD ADDRESS 200 AND START COMPUTER. 


FIRST TIME fs gel ng TS THE NAME OF THE PROGRAM. 

AND ALSO PRINTS HELP fy Srey WHICH IS SELF EXPLANATORY. 
THE MONITOR PROMPTS “— (2)FOR OPERATOR'S INPUT. 
CHARACTER TYPED MUST BE TERMINATED BY ‘CR’. 

HELP MESSAGE PRINTS AS FOLLOWS 


a FUNCTION BELOW , TYPE CHARACTER CARRIAGE RETURN. 
* FEST Ch LOCK (CONTROL C TO EXIT) 


T 

* TO READ CLOCK 

* TO MODIFY/READ ADDRESS AND VECTOR 

" ACCURACY OF CLOCK 

G' CHANGE SOFTWARE SWITCH REGISTER 

" EXIT HALTS CPU ! 
" HELP PRINTS THIS MESSAGE. 












ITOR PROMPTS WITH(?) “Star CAN TYPE ANY 


WHEN MON 
ONE OF ABOVE CHARACTER FOLLOWED BY A 


SEQ 0003 


E 
IF YOU WANT TO TEST THE CLOCK TYPE ‘T* ‘CR* 
PROGRAM START® TESTING THE CLOCK.TO EXIT FROM ANY TEST TYPE 
CONTROL C. ZES CHARACT 


$ 
FROM WHICH YOU CAN AGAIN GO BACK TO TEST THE CLOCK OR 
CAN SELECT THE FUNCTIONS DESCRIBED ABOVE. 


HOW TO SET CLOCK 





FIRST MAKE SURE YOU ARE IN A MONITOR MODE (7). 
TYPE *S*® FOLLOWED BY A °CR* TO SET CLOCK. 


WHEN SETTING CLOCK,YOU MUST ENTER VALUES IN ALi FIELD IN 
PROPER FORMAT.LETTERS IN FIELD INDICATES NUMBER OF DIGITS 
TO bf TYPED OR THE FIELD.TYPE *CR* TO TERMINATTE ENTERING 


HOW TO READ CLOCK 


MAKE SURE YOU ARE IN A MONITOR MODE(?). 
TYPE ‘R’°AND *CR’ ,PROGRAM PRINTS YEAR, JULIAN DAY,MONTH, 
DAY ,HOUR ,MINUTE , SECOND. 


HOW TO MODIFY/READ ADDRESS, VECTOR AND BUS REQUEST LEVEL. 





SURE YOU ARE IN A MONITOR MODE (?) . TYPE 





YOU DON'T.LAST PROGRAM PRINTS BUS REQUEST LEVEL AFTER RESPON 
DING TO CURRENT PRINT OUT YOU ARE BACK INTO MONITOR MODE. 


SSES > 9 AS FOLLOWS 


S = 300 
BUS REQUEST LEVEL = 6 
HOW TO TEST ACCURACY OF CLOCK 


WHEN YOU ARE IN A MONITOR MODE TYPING ‘A* FOLLOWED BY 
oo” ime GOES TO THE ROUTINE FOR TESTING ACCURACY 


aaa — o WILL BE ASKED: 


ge ae N : 

‘TYPE TWO CHARACTERS AT 60 SEC APART’ 

ANSWER FIRST TWO QUESTIONS WITH <CR> IF ANSWER 

IS AFFERMATIVE AND WITH <N><CR> FOR NEGATIVE ANSWER. 


SEQ 0004 


> 0 


WHEN YOU ARE 
seed OLD CONTENT OF SOFTWARE SWITCH REGISTER AND WAITS 
FOR NEW VALUE 


ae 
if BOTH ANSWER ARE NEGATIVE PROGRAM WILL ASK TO TYPE TwO 
T 60 SECONDS APART. PLEASE BE VERY ACCURATE 
CHARACTERS AT EXACTLY 60 SECONDS APART.THE 
PERI WEEN TWO CHARACTERS TYPED WILL BE USED TO 
DETERMINE THE TIME BASE FOR THE KwW11-C. 
THE ERROR MESSAGE WILi BE PRINTED IF CLOCK IS NOT ACCURATE. 
THEN THE PROGRAM GOES TO MONITOR MODE(?). 


If THE CLOCK IS ACCURATE THERE WON*T BE ANY MESSAGE AND 
PROGRAM PROMPT WITH <?> INDICATE IN MONITOR MODE. 








HOW TO CHANGE SOFTWARE SWITCH REGISTER 


YOU ARE IN A MONITOR MODE(?) , TYPE *G" ‘CR’ 
TWARE SWITCH REGISTER 
WANT TO CHANGE 









AS ABOVE.SO USE <CONTROL G> WHEN TESTING 


HELP MESSAGE 


IN MONITOR MODE TYPING *H’ ‘CR* PRINTS 


CT FUNCTION BELOW, TYPE CHARACTER CARRIAGE RETURN. 
ries ye eaten C TO EXIT) 


OF CL 
CHECK/MODIFY SOFTWARE SWITCH REGISTER 
EXIT HALTS CPU | 
HELP PRINTS THIS MESSAGE. 


PRELIMINARY OPERATIONS: 
DEVICE ADDRESSES AND VECTOR ADDRESSES 


DEFAULT: 
DEVICE ADDRESSES: renee 
760202 


760204 
CSR: 760206 


VECTOR(O): 300 
VECTOR(2): 304 


BR: 6 


SEQ 0005 


EX1: 


EX?; 


EXx3: 


PRELIMINARY PROGRAMS NEEDED 
NONE 
OPERATIONAL PROCEDURES: 


NORMAL OPERATION IS WITH ALL SWITCHS ON O. 
ERRORS : 


EACH ERROR SIGNATURE CONSISTS OF ONE OR MORE LINES 
OF TEXT DESCRIBING THE ERROR AND ALSO INCLUDES 

EXPECTED V § RECEIVED DATA, CONTENT OF CSR AT TIME OF ERROR 
TEST NUMBER WHERE APPLIC 

FOLLOWINGS ARE EXAMPLES OF ERROR PRINT OUT 

"READY BIT FAIL TO SET IN CSR’ 


ERROR TESTA CSR 
5432 7 00000 
WHERE 


pC GIVES THE ADDRESS WHERE ERROR OCCURED. 

TEST# TELLS THE TEST NUMBER WHERE ERROR OCCURED. 

CSR TELLS THE CONTENT OF CSR AT TIME OF ERROR. 
"READ VALUE NOT MATCH WITH EXPECTED’ 


ERROR TEST# GOOD BAD CSR 
5432 21 00000 00073 00200 
WHERE 

GOOD IS EXPECTED VALUE 

BAD IS ACTUAL VALUE READ. 


OTHER FIELDS ARE SAME AS ABOVE. 


"HOLD BIT FAIL Mg RESET" 
ERROR TESTA PRESEC CURSEC CSR 


PC 
6010 11 20 25 000001 


SEQ 0006 


WHE RE 


PRESEC IS THE VALUE OF SECOND BEFORE HOLD BIT SET 
FURSEC 15 THE VALUE OF SECOND AT TIME OF ERROR. 


EXECUTION TIME: 


EXECUTION TIME VARY SOMEWHAT ,DEPENDING 
ee. oe FOLLOWING ARE EXECUTION TIME OBSERVED ON 


QUICK PASS: 6MIN,20SEC 
SUBSEQUENT PASS: 14MIN, 30SEC 


SEQ 0007) 
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167400 SSWR=167400 
000001 STN-1 


-SBTTL BASIC DEFINITIONS 


;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 xx 
001100 STACK= 1700 
-EQUIV EMT.ERROR > BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE 2sBASIC DEFINITION OF SCOPE CALL 











; *MISCELLANEOUS DEF INITIONS 
000011 HT= 11 :CODE FOR HORIZONTAL TAB 
000012 LF= 12 * CODE FOR LINE FEED 
000015 CR= 15 ;:CODE FOR CARRIAGE RETURN 
000200 CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= 177776 ::PROCESSOR STATUS WORD 
.EQUIV PS.PSW 
177774 STKLMT= 177776 ::STACK LIMIT REGISTER 
177772 PIRQ= 177772 : PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 : HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 :7HARDWARE DISPLAY REGISTER 
; "GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= %0 >: GENERAL 





000004 

> :GENERAL REGIST 
000006 = 16 :: STACK POINTER 
000007 PC= 27 > PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 
PRO= sO 


; PRIORITY LEVE 
: oat TY LEVE 





eS 


x 
oS 
a 
s 
33 
few 
— 

~< 
oe 
m 
a 

Perr ree 


NOAUMEWN © 


SSSes 
S858 


;;PRIORITY LEVE 
“SWITCH REGISTER’’ SWITCH DEFINITIONS 
bw 5= 100000 





ees 


— 
oy 


a a a a rN a Nt Nt Nt NP Nt NP PN Nt DP et et tet et et EQN 
Ww 
r | 
a 
" 
as 
WW 


Oy fy Ly Ly LO Ly Oy LO Li, Oy i, i, LO, Li, Ln, Ly, Ly I, LO OL, LO OL, LO LO LO, i i LO i il i i i il il i iit i il. 


: 
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BASIC DEFINITIONS SEQ 0009 
1) 900020 20 
(1) 000010 10 
(1) 000004 4 
(1) 000002 2 
(1) 000001 1 
(4) SWO9, SW9 
(1) SwO08, Sw8 
(1) SWO7, SW7 
(1) SW06, SW6 
(1) Sw05 , SWS 
(1) SWOS , SWS 
(1) SW035,SwW3 
(1) SWwO2, SW 
(1) SwW01. SwW1 
(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 100000 
(1) 040000 BIT14= 40000 
(1) 020000 BIT13= 
(1) 010000 BIT12= 10000 
(1) 004000 BIT11= 4000 
(1) 002 BIT10= 2009 
ff} 8008 “a 
(1) 000200 BITO7= 200 
(1) 100 T06= 100 
(1) 0 BITOS5= 40 
(1) 20 BIT04= 20 
(1) 10 BIT03= 10 
(1) TO2= 4 
(1) 2 BITO1= 2 
(1) 000001 TOO= 1 
(1) .EQUIV BITO9,BIT9 
(1) .EQUIV BITOB,BITS 
(1) .EQUIV BITO7,BIT7 
(1) IV BIT06,8 
(1) -EQUIV BITOS,BITS 
(1) -EQUIV BITO4,BIT4S 
(1) EQUIV 81T03,B1T3 
(1) -EQUIV 81T02,BIT2 
(1) -EQUIV 8IT01,81T1 
1) .EQUIV BITOO.BITO 
(1) : KBASIC cpu TRAP VECTOR ADDRESSES 
(1) ERRVEC= 73 TIME OUT AND OTHER ERRORS 
(1) 10 RESVEC= 40 34 RESERVED AND ILLEGAL INSTRUCTIONS 
(1) 14 TBITVEC=14 T 
(1) 14 TRIVEC= 14 TRACE TRAP 
(1) 14 BPTVEC= 14 > :BREAKPOINT TRAP (BPT) 
(1) IOTVEC= 20 33 INPUT/QUTPUT TRAP (JOT) **SCOPE** 
(1) 4 PWRVEC= 24 > :POWER FAIL 
(1) 0000 EMTVEC= 30 ;3EMULATOR TRAP (EMT) *#ERROR#* 
(1) 0000 TRAPVEC=34 >: ""TRAP’’ TRAP 
(1) 000060 TKVEC= 60 =: TTY KEYBOARD VECTOR 
(1) 000064 TPVE(= 64 >: TTY PRINTER VECTOR 
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BASIC DEFINITIONS SEQ 0010 
























(1) 000240 PIRQVEC=240 ;;PROGRAM_ INTERRUPT REQUEST VECTOR 
1$ 160006 ABASE=160006 sBASE CD BUS ADDRESS EQUATE 
16 160 AVECT1=160300 sBASE CD PRIORITY & VECTOR ADDRESS EQUATE 
17 177546 LKS=177546 3=CONTROL AND STATUS REG OF L.CLOCK 
19 172540 PKCSR=172540 >;CONTROL AND STATUS REG OF P.CLOCK 
20 172542 PKBUF =172542 >zBUFFER OF P.CLOCK 
$) 172544 >; COUNTER 
¢ 001124 
2 001126 
24 000001 
$2 001122 BADA=$8DADR 
gs -SBTTL MEMORY MANAGEMENT DEFINITIONS 
at ;*KT11 VECTOR ADDRESS 
(1) 000250 MMVEC= 250 
Ht ;*KT11 STATUS REGISTER ADDRESSES 
(1) 177572 SRO= —-:1177572 
(1) 177574 SR1= =: 177574 
(1) 177576 = 177576 
(1 172516 SR3=  —- 1172516 
+ ;*KERNEL °‘I'* PAGE DESCRIPTOR REGISTERS 
(1) 172300 KIPDRO= 172 
sae cleona 172303 
(1) 17 KIPDRS= 175306 
(1) 17231 
(1) 172312 17231 
(1) 17 3i¢ KIPDR6= 172314 
ah 172316 KIPDR7= 172316 | | 
3 ;*KERNEL ‘'I'* PAGE ADDRESS REGISTERS 
(1) 172340 KIPARO= 172340 
(1) 172342 KIPAR1= 172342 
(1) 172344 = 172344 
(1) 172346 2346 
(1) 172350 50 
(1) 172352 2352 
(1) 172354 172354 
1) 172356 172356 
Ri .SBTTL TRAP CATCHER 
(1) 000000 -=0 
(1) ;*ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN 
(1) ;*A_**.42, IOT’’ SEQUENCE TO CATCH AND PROCESS ILLEGAL 
$f ;* AND INTERRUPTS THAT MIGHT OCCUR 
(1) ;*TRAPS TO THE $SC 
(1) >*LESS THAN 1002) JUMPS TO THE 
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a :*THE SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS: 
* & 

(1) **AND RETURN TO THE PROGRAM AT PC=YYYYYY+2 

(1) : ON OF ILLEGAL TRAP 

(1) re IME OF TRAP 

(1) : HE PROCESSOR IS NOT AN 11/05 THE PROGRAM 

(1) :* CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 

(1) 900000 000000 SG4OCAT: HALT > :HALT 

(1 000002 000737 BR .-100 : S BRANCH TO 177700 & TIME OUT (NOT ON 

(1) 000004 003776 .WORD ROUT1 =:VECTOR TO STARTING ADDRESS 

(a 000006 900340 -WORD 340 >:WITH PRIORITY LEVEL 7 

(1) 000174 000000 :.WORD O ;;SOFTWARE DISPLAY REGISTER 

(1) 000176 000000 SWREG: .WORD 0 >: SOFTWARE SWI7CH REGISTER 

(1) -SBTTL STARTING ADDRES(ES) 

oH 000200 000137 003776 MP @PROUT1 ::GO TO START OF PROGRAM 


-SBTTL ACT11 HOOKS 


2 SKAEAKKKEKEAAAKEAKEKAKEKREKEEKEAEAEKKKEAKKKEEKKEEEKEKKEEKKEEKRKEEERRREREE 


=HOOKS REQUIRED BY ACT11 
vPC=. 


( 
( 000204 :SAVE PC 
( 000046 .=46 
( 000046 020146 SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
(1) 000052 000000 “WORD 0 ::2)SET LOC.52 TO ZERO 
( 000204 -=$SVPC 3: RESTORE PC 
001 -=1000. 
.SBTTL APT PARAMETER BLOCK 
Fg AERA AAEAEEEKAKEERKEREEREREREREKERKAERREEAEEEEKEKEREHEKEEKKKEEE EE 
>SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
Ff TAAAAEAKAEEAEEERAREKEEEREREERERAREERAAEAKEEREREKEAEAEHAKEKRKEKHHREKEE 
1 .$X=. 2: SAVE CURRENT LOCATION 
4 3286 SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 200: «FOR APT START UP 
4 .=44 — ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000  $APTHDR ::POINT TO APT HEADER BLOCK 
1000 $X :;RESET LOCATION COUNTER 


oe e : 
>, EAAEAAEAAAERAEAEEAEAEEEEEREEEEKEKREEREREARAEKEARARKKKKKKKKKHKKKKKKKS 


:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. | 














eet arnrarnnsarere ard naar rime 


ar er ee ee ee a es ee ea es ee ee a a a ee ae a ee ee eee ele sal ee 


PR LPL LLL Le, fg, fg, Ly LL LO Le LL, Le, Le, ey 





ad oe T MAI ADDR. 

‘ SMAIL ss :: (BITS 0-15) 

é 15. as | TEST 

3 60. 3 CS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

. 0 3; :ADDITI RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UIT 
; SETEND-SMAIL/2 :: LENGTH MAILBOX-ETABLE (WORDS) 


me 


s 
: 


7. 


BX PO Pr PB FR RF FR FR FR FR FR FR FR FR FA 
mt sh at nt ot so st a La ff) 


a et a a a a a a a a a a a a a a NN NN ee ee ee ee ee a ee ee ee a a ee 


LO a Oy fi, i, Ly fy, Oy ig Lg Ly, Le, Ly Ly I, I, ey, LO, Ly yO, Om lm 
ForofUunu WRURITU — — (WII Ss SS ss SS os at SS ee 


SSsess 


el ee ee elt el ed eel ee eel ee ewes ee ee ee ce ee ee ee eee ee ee ee eee eee cee ee eee ee eee ee eee ee eee eed ee wd ed 
Ww 


FRRNSRRARES 


OSS 


SOSSOSSS¢ 
r~ 


eo 
et el dD eel ee ee ce eel ee cee ee ce eed ee el ee cee cee cece ee ee ee ee ee eee ee eed eed eee ee eed ee eed ed 


Roseet 


—?. 


. 


->_>- >_> 


+> 


NMOUESMOA Sty 


UIVIUTIVIVINE RIAD 


SSSSsssssssE 
ENSSERS 


= 





Sse 
SRS 
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000377 


SEQ 0012 
-SBTTL COMMON TAGS 


5 EEE EEE EERE ERE EEE RERERERAEEERRRERRERERERER ARERR EEE 
>*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
: D IN THE PROGRAM 





:2START OF COMMON TAGS 




























0 
0 >:CONTAINS THE TEST NUMBER 
0 >: CONTAINS ERROR FLAG 
0 >:CONTAINS SUBTEST ITERATION COUNT 
AINS SCOPE LOOP 
‘ 0 
0 
T 1 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 33 AINS ° 
-WORD 0O 7; CONTAINS “BAD DATA 
- WORD ° 7 sRESERVED--NOT TO BE USED 
TOB: .BYTE 0 3 AUTOMATIC MODE INDICATOR 
SINTAG: .BYTE 3; INTERRUPT MODE INDICATOR 
WORD OD 3ZADDRESS OF SWITCH REGISTER 
: ,WORD DDISP °* SS OF DISPLAY REGISTER 
fhe TATUS 


; KBD BUFFER 

23TTY PRINTER STATUS REG. ADDRESS 
22 TTY PRINTER BUFFER REG. ADDRESS 
; L CHARACTER 








mina IN 
nana 





0 ¢ FOR FILLS 

Pe Sst oars RS REQUIRED 
12 sed CHARS. AFTER A ‘LINE FEED'’ 
O. se AVAILABLE’’ FLAG (B1T<07>=0=VES) 
4 + sUSER DEF INED 

0 SEUSER DEFINED 

USER DEFINED 


MAX. NUMBER OF ITERATIONS 
ve Te ADDRESS 





Se Se & 
Be Be Be Se Be 


- 207><377><377> °° 
1 797 


F: .ASCII <15> 
$SLF: .ASCIZ <12> ; LINE 
FL RRARREREARERARERERAEREEE EERE EREREREEEEEREREREKEREEKEEEEEREEEHES 


-SBTTL APT MAILBOX-ETABLE 


Cf AAA AEAEAEEAEEKAAEAEREAEEAEEEAAAEREEEEAREAEEARALERERERERAERAREES 


e¢ Se Ge % 
e %e &e © 





EVEN 

SMAIL: 7:7 APT MAILBOX 
SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
SFATAL: .WORD FATAL ;::FATAL ERROR NUMBER 
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T MAILBOX-ETABLE SEQ 0013 





~ 
ed 
8g 
™N 
— 


ATESTN 
APASS 








001 23 RONMENT MODE BI 
001 se SWITCH REGISTER 
001 R_SWITCHES 

0012 :;CPU TYPE ,OPTIONS 





ey 111796201 11/05-02, 11/20=03,11/40=04,11/45=05 
11/70=06 .PDQ=07 ,0=10 


BIT Qe LOATING: Sir PROCESSOR 
BIT 8=MEMORY 


; sHIGH ADDRESS .M.S. BYTE 


BX LLL LR LR FR FR FR FR FR FR FR 


MOPOTO 


ee a a a i a a a a a a a a a a a a a a NN NN ee et ee ee ee ee ee ee ee ee 












¢ 


T ADDAS =3 BYTES THIS WORD AND LOW OF ''TYPE'' ABOVE 
SS.M.S. ota 


nee ; 
SS,BLKA3 
ss @ S.BYTE 
4 
c pith PRIORITY#1 
CTORA PRIORITY#2 


Ee : BASE ADDRESS OF EQUIPMENT UNDER TEST 
7 3DEVICE MAP 


: 


¢ 
: 













3 


ag 
—~ 


3 













A 
. 








43 
BS 





at 










3 


; 
: 









zi 
ie 





oes 


SSSSSSESSSSSSSSESSSSESS25 


re 





er a 


LLM LLL LLL LLL LLL LLL LLL PR LL LROLLROLLDLPOPLR LLP LOLOL 
PIPIFIFIFIAIPIA IPP IPP PIPPI POPPI IPD PUD PONIPINININININININA) 





SSSSSSSSSSSSSSS8SSSSSSSSSSSS 


met eed ed cme end cod ed cl el cc ee ce eed ced eed eed oe ee eed oe oe ed ed od oe - 2) 3 
s.18 


a! 
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001330 000000 SDDW15: .WORD ADDWIS5 ;:DEVICE DESCRIPTOR WORD#15 


001332 SE TEND: 


ee Ne ee ee ee ee ee ee ee ee > 
— 


OO VYOouflwr)—-O 


te et SE EN eee cae ey ee A 


Oo 
—_ 
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15-MAR-80 07:3 ERROR POINTER TABLE SEQ 0015 
-SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
7*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
7*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
: *NOTE1: If SITEMB IS 0 THE ONLY PERTINENT DATA IS ( . 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
;* EM 7zPOINTS TO THE ERROR MESSAGE 
3% DH 7;z;POINTS TO THE DATA HEADER 
3% DT 7zPOINTS TO THE DATA 
;* DF 7zPOINTS TO THE DATA FORMAT 
001332 SERRTB: 
; ERRORA1 
001332 024406 EM] ;zACTUAL VALUE DIDN'T MATCH WITH EXPECTED 
1 ee 027431 DH1 
1 027654 DT1 
1340 000000 
7 ERRORA2 
1342 0264654 EM2 7;7ERROR: READY BIT DIDN'T SET 
1344 027517 DH2° 
1346 027670 DT2 
1350 ) 000 
; ERRORAS 
Oo ee Oe 285 EMS 37TIME INTERVAL COUNTER DIDN'T DECREMENT IN ORDER 
001354 027431 DH1 
eae yy 7654 DT1 
1360 000 
ZERRORAG 
001362 024563 EM4 AUSE OF AN ERROR:BITA#14 WAS 


7 7PROBABLE C 
;zNOT SET IN DEVICE REG4 


88s 
oOo 
oor 
On 
o 
ae 


000 
sERRORAS 
} 72 3615 EMS 7 ERROR:BIT #14 IN CSR FAIL TO RESET 
74 7517 DH2 
1376 7670 DT2 
1400 000 
; ERROR#6 
1402 024651 EM6 ;2READY BIT DIDN'T SET; YEAR VALUE MAY BE INVALID 
14 7431 DH1 
14 7654 DT1 
141 000 
> ERRORA47 
Orel iyo EM7 7;READY BIT DIDN’T SET;ONE OR BOTH VALUES OF MONTH AND D 
1414 7431 DH1 
gees 7654 DTI 
14 000 
7 ERROR#10 
Oorass BE s080 EM10 7ZREADY BIT DIDN’T SET;ONE OR BOTH VALUES OF HOUR AND Ml] 
+8 057654 DTT 
0014 
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SSONR AE OOO NOME WU ODD NOME HU OOS MAAR POOR IEMA SVS 


025152 


Og3 12 
027517 
027670 
000000 
025250 
027517 
027670 
000000 


025304 
027517 
027670 
000000 


025437 
027517 


743) 
957634 
025735 
027517 
057670 
ce 

7670 


026053 


13-MAR-80 


07:40 


PAGE 1-8 
ERROR POINTER TABLE 


; ERROR#11 
EM11 
DH2 





:sERROR: BIT #15 (DE) FAIL TO SET IN CSR 


>zERROR: CLOCK DIDN'T STOP 
:-CLOCK WAS SUPPOSE TO STOP WHILE 
>eSETTING MONTH+DAY VALUE 


7zERROR: CLOCK IS NOT RUNNING 


>:CLOCK WAS SUPPOSE TO RUN AFTER 
7sSETTING MONTH+DAY AND HOUR+MIN 


>; INTERRUPT DIDN'T OCCUR WHILE UPDATING THE CLOCK 
72 INTERRUPT DIDN'T OCCUR ON PRESET VALUE 
3: SOFT ERROR 


; sUNEXPECTED INTERRUPT AS SOFTWARE SWITCH 
fe NOT SET 


; UNEXPECTED INTERRUPT AS INTRPT WAS NOT ENABLED 


; ;UNEXPECTED INTERRUPT AS (DE) BIT 
sz DIDN'T SET IN CSR 


2 SUNEXPECTED UNEXPLAINABLE INTERRUPT 


> 7UNEXPECTED INTERRUPT AS (TI) BIT 
7zWAS NOT SET IN CSR 


SEQ 0016 


neil 
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MACY11 
001554 
901556 
001560 


001562 


ess 8 


ATE Eee 


iuiukal aDababel 
oO 

vi 

Oo ru 


ao 
wiv 
ern 


See SF 


roma — Se ee | ed ceed el ald 


SS88S SS8S SS8S SSSS SSSS § 


027517 
027670 
060000 






026121 


027431 
027654 
000000 


026207 
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ERROR POINTER TABLE 


SEQ 0017 


:oTIME FAIL TO HOLD WHILE 
:zWHILE HOLD BIT WAS SET IN CSR 


7 sERROR:READY BIT WASN'T SUPPOSE TO BE SET 
::"M'BIT DID NOT SET IN CSR 
:¢TiME INTERVAL INTERRUPT DIDN'T OCCUR 


33 "M*" AND/OR ‘DE* BIT NOT SET IN CSR 


:7;HOLD BIT FAIL TG RESET IN TIME 

:;HOLD BIT FAIL TO RESET 

7zCRYSTAL OSCILLATOR SEEMS TO BE INACCURATE 
7:GOT NO INTE 


RRUPT 
:2GOT NO INTERRUPT WITH BPU AT LEVEL 0 


2 INTERRUPT OCCUR AT WRONG LEVEL 


MAIN 


187 


QLIHY LBS 


ee ek ed ee weed eed eed 
Ww 


BS LE 


S 


PIPOPUP NN NINN 
db aed ed od od od 


Ow NS WI - O OO NO UEWNO 


PPP Prrmrrerrororonunons rrr 
RSESY WW ANWAR MUNIN 


‘ - MACY11 
CZKWLA.P11 1 


30A(1052) 13-MAR-80 07:40 PAGE 1-19 

3-MAR-80 07:39 ERROR POINTER TABLE 
7 ERROR+36 

026% EM36 

027517 

027670 DT2 

000000 000 


:-"DE* BIT FAIL TO CLEAR iN CSR 


KW11C BUS REGISTER ADDRESS POINTERS 


160006 
KW11C VECTOR ADDRESS POINTERS 
:NORMAL INTERRUPT VECTOR 


300 
304 


KW11C DEVICE LEVEL 


6 


> COMMAND/STATUS REGISTER 


COMMAND STATUS REGISTER BIT ASSIGNMENTS 


COMMON PROGRAM LOCATION(S) 


-MACR 
JSR 
TST 
» ENDM 


-MACR 
MOV 





-MACR 


RDYCK 
at 
FLAG 





DectR 
#77777 ,COUNTR 
#0, acsr 


COMPAR 


PC, OAT 
#BIT15. aCSR 
-20 


>CHECK FOR READY BIT SET 
IS FLAG SET? 


;:STORE CHARACTER 
;-70 ECHO THE CHARACTER 
::TYPE THE CHARACTER 


ssSTORE CHARACTTER 
s;ECHO THE CHARACTER 


:;DELAY LOOP SETUP 
7ZDEAD MAN TIMER ROUTINE 
3718S DE BIT SET 

:Z TRY AGAIN 


7 DELAY LOOP SETUP 
: CLEAR CSR 
7:DEAD MAN TIMES ROUTINE 
72:18 BIT15 CLR? 
NO :BR 


SEQ 0018 






















































-MAIN. MACY11 30A‘1052) —e 07:40 PAGE 1-11 
CZ7KWLA.P11 15-MAR-80 07:39 ERROR POINTER TABLE SEQ 0019 
244 CMP . 74 :zEXPECTED VALUE MORE THAN OR EQUALS 60.? 
245 BLT B > 2NO0:BR 
24 SUB #74, GOOD >sEXPECTED SECOND CAN'T BE MORE THAN 59 
24 8: CMP GOOD. BAD > EXPECTED=ACTUAL ? 
248 .ENDM 
5 
253 -S8STTL PROGRAM START 
254 001712 START: 
(1) -SBTTL INITIALIZE THE COMMON TAGS 
(1) >: CLEAR THE COMMON TAGS (SCMTAG) AREA 
(1) 001712 012706 001100 MOV #SCMTAG,RG 3cFIRST LOCATION TO BE CLEARED 
(1) 001716 005026 CLR (R6) + 3:CLEAR MEMORY LOCATION 
(1) 001720 022706 001140 CMP #SWR,RG6 ; : DONE? 
(1) 001724 0013764 BNE ;LOOP BACK IF NO 
(1) 001726 012706 001100 MOV #STA K,SP + SETUP THE STACK POINTER 
(1) ;; INITIALIZE A FEW VECTORS 
(1) 001732 012737 023342 000020 MOV -@F IOTVEC ose VECTOR FOR SCOPE ROUTINE 
(1) 001740 012737 340 000022 MOV #340, av IOTVEC+2 sel VEL 7 
(1) 0017466 01 ale 022656 000030 MOV #SE -aFEMT EMT VECTOR FOR ERROR ROUTINE 
(1) 001754 012737 340 000032 MOV #340 ,Q#EMTVEC+2 >: LEVEL 7 
(1) 001762 012737 024324 000034 MOV #STRAP ,@#TRAPVEC :;: TRAP VECTOR FOR TRAP CALLS 
(1) 001770 012737 340 000036 MOV #340, a#TRAPVEC+2: LEVEL 7 
(1) 001776 012737 023634 000024 MOV SSPURDN , AAPWRVE C C > ;POWER FAILURE VECTOR 
(1) $By3 B16! 7 340 000026 MOV #340 ,aePWRVEC+2 : sel LEVEL 7 
(1) $ 3 013737 020114 020106 MOV SENDCT, SEOPCT ZSETUP END-OF -PROGRAM COUNTER 
(1) 0 005037 001172 CLR STIMES ‘INITIALIZE NUMBER OF ITERATIONS 
(1) B50 4 rept tA 001174 CLR seC EAR THE ESCAPE ON oa ADDRESS 
(1) 0020 112737 001115 >;ALLOW ONE ERROR PER 
(1) Bese OSes 002036 001106 3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 002044 012737 002044 001110 MOV PERR T RROR LOOP ADDRESS 
t$ :;SIZE FOR A A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
(2) 7;EQUAL TO A *™=1 UP FOR A SOFTWARE SWITCH — 
(2) Spee BI 3ee9 MOV ave VEC ,~(SP) TOR 
(2) 056 012735 $it6 000004 MOV @FERRVEC CTOR 
(2) Be 12737 17757 1140 MOV #DSWR , SWR A HARDWARE SWICH REGISTER 
(2) 8 127 177570 1142 MOV #ODISP, DISPLAY © A DISPLAY REGISTER 
(2) » 1 7 177777 177032 CMP #-1,aSUR ETRY a REF ERENC SWR 
(2) 106 1012 BNE 88 H IF NO TIMEOUT TRAP OCCURRED 
(2) | T Bae SWR IS NOT = -1 
(2) 110 03 BR 65$ 3 BRANCH I F NO TIMEOUT 
; , BF 12716 002120 64$: 4  M65$, (SP) 7zSET UP FOR TRAP RETURN 
(2) 1 4 : 000176 001140 65$: MOV #SWREG, SWR 7zPOINT TO SOFTWARE SWR 
(2) 126 012737 000174 001142 MOV #DISPREG, DISPLAY 
($3 1 012637 000004 66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
(2) 140 00308 sided. CLR SPASS 7: CLEAR PASS COUNT 
(2) 144 «7 200 001227 BITB WAPTSIZE,SENVM ;;TEST USER SIZE _— APT 
(2) 152 001403 BEQ 67$ 77 VES.USE NON-APT SWITCH 
; 133 012737 001230 001140 7s #SSWREG, SUR 72N0, USE APT SWITCH REGISTER 
$82 -SBITL TYPE PROGRAM NAME 
(1) 77 TYPE THE NAME OF THE PROGRAM IF rine PASS 
(1) Q02162 005227 177777 INC #-1 23 -FIRS a tek 
(1) 002166 00104 +3 H IF NO 
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und r. 
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9051 70 LI ET 
003 18 00144 
104261 








1 
12702 


are Sa 
~B0 07 


02271 


14 


1 


020146 
002246 
000042 
001226 
001140 


000001 


177777 


024212 
024212 
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739 TYPE PROGRAM 


000042 


000001 
000176 


001134 















perenne mie 
H 2 
SEQ 0020 
CMP #SENDAD .aG2 ACT 112 
BE 68$ IF YES 
TYPE .69S >TYPE ASCIZ STRING 
.SBITL GET VALUE FOR SOFTWARE sul TCH REGISTER 
TST are we RUNNING UNDER XXDP/ACT? 
SENV #1 =: ARE WE RUNNING UNDER APT? 
70$ yo IF YES 
SUR. ASWREG SOF TWARE SWITCH REG SELECTED? 
BNE 71$ H IF NO 
— 715 = <GET SOF T-SWR SETTINGS 
708: MOVB #1.$AUTOB zzSET AUTO-MODE INDICATOR 
68$ OVER THE ASCIZ 
-:693: .ASCIZ CCRLF HMAINDEC~11-CIKMEAD KUTT COCERE > 
FLOAT: INC #-1 ::PRINT ONCE 
BEQ 
JMP TUP4 
6$ MOV #TIMOUT .@MERRVEC :: TIME OUT INTERRUPT ADDRESS 
MOV #OCTMOD .R4 : sPOINTER TO THE OCTAL MODULE TABLE 
MOV #160010.RO ARTING ADDRESS OF DEV TABLE 
MOV WRANKTA.R2 : SBOINTER TO THE RANK TABLE 
1$: CMP #21, (R2) ::1S IT LAST ADDRESS? 
BEQ 5$ : BRANCH IF YES 
28: mov (RO), RS zz TRY TO ADDRESS THE DEVICE ADDRESS 
NOP 
TST FLAG.2 i1S INTRPT FLAG SET? 
BEQ 4$ H IF NOT 
CLR FLAG.2 
BR . oie 
4$: ADD (R46), — RO 
TST (RG) + 
TST (R2)+ 
BR 1$ 
SUB #2 R5 
SUB (R5), RO 
MOV RO, RGO 
ADD #2, RO 1 NE 
MOV RO, RG2 3 NEXT DEV ADDRESS 
ADD #2. RO a3 
MOV RO: RG4 3 
ADD #2, RO io 
MOV RO, SBASE 33 
JMP SETUP 


>THIS IS TIMEOUT INTERRUPT ROUTINE 


MAIN. 
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135-MAR-80 07:40 PAGE 1-13 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


07:39 


SIEY 000001 024212 
724 


017770 
001256 


TIMOUT : 


1$: 


2s: 
3$: 


OC TMOD : 


RANKTA: 


000004 SETUP1: 


MOV 
TST 


0010 


ee eed ce ee FY) me ed ed ed ed ed ed eed eed PL) 
BDOOOSOOOOCOOSOSS 


S8SSSsSSsSSSsS8sss 






See5Eses 38 


RREEEEEEE 
WOU Why 


Ses 


az 





SWAB 


#1, 
(R4)+ 
(R2)+ 
(RG), 
1$ 
#10, 
3$ 


ATRAPS, aW#ERRVEC 


I 2 


FLAG.2 


SVECT1,RO 
RO 


s7SET INTRPT FLAG 
>; INCREMENT OCTMOD POINTR 
7: INCREMENT RANKTAB POINTR 
sZi5 ~ ha EVEN ADDRESS 
>: INDICATE NO DEVICE 
> ;RETURN FROM INTRPT 






: IT EVEN 
> RETURN FROM I 
37 INDICATES NO DEVICE PRESENT 
> sRETURN FROM INTRPT 


7 ADDRESS OF TRAP ROUTINE 
33GET PRIORITY LEVEL 
72PUT IN LEFT HALF 


SEQ 0021 


J 


rs 





J 2 
MAIN, MACY11 se a7! oo 07:40 PAGE 1- 
CZKWLA.F11 1 GET 


14 
VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0022 






















51 002666 042700 177400 BIC #177400.RO ::CLEAR UNWANTED BITS 
33 002652 010037 026104 MOV RO.PRI >:SAVE DEVICE LEVEL 
354 ; NOW SETUP BUS ADDRESS VALUES 
3 002656 013737 001262 026062 SETUP2: MOV SBASE CSR STORE BUS ADDRESS 
38 : NOW SETUP VECTOR ADDRESSES 

00 012700 024072 ° MOV #PCV0.RO ::SETUP VECTOR POINTER 
670 013701 001256 MOV SVECT1.R1 -:GET BASE VECTOR ADDR 
002674 042701 177400 BIC #-400.R1 >: CLEAR UNWANTED BITS 
010120 ETUP3: MOV R1, (RO)+ ==PUT ADDRS 
702 701 000002 ADD #2,R1 >: INCR.TO NEXT LOC. 
706 022700 024102 CMP #PCV14+4 RO ::DONE ALL LOCATIONS? 
71 ARIE BNE SETUP3 ::BR,IF NOT DONE 
714 005737 000062 SETUP4: TST as2 ::TEST CHAIN MODE UNDER XXDP 
7 g 00140 BEQ 1$ ::BR,IF CHAIN MODE 
7 137 902770 JMP HELP 
726 O1¢ 017554 0211 1$: MOV #INTRPT ,aPCVO Zz ADDRESS OF INTERRUPT ROUT INE 
4. 777 02641046 021132 MOV PRI, aPSVO ;¢RISE PRIORITY 
rhe 1er77 17662 021126 MOV #TIMRTN,aPCV1 :ADDRESS OF TIME INTERVAL INTERRUPT ROUTINE 
750 013777 024104 021122 MOV PRI, aPSV1 :3BUS L LEVEL 
7 ita 177777 INC we 

75 76 14 é BEQ HELP >:PROMPT FOR INPUT 
? f 000137 003530 me JMP RESTRT 
(1) 770 104401 002776 TYPE ,65$ :zTYPE ASCIZ STRING 
(1) 774 0004 BR 64 OVER THE ASCIZ 
(1) 5658: “ASCIZ <200>/SELECT FUNCTION BELOW. TYPE CHARACTER CARRIAGE RETURN/ 
378 903086 104401 003074 TYPE 67$ zz TYPE ASCIZ STRING 
(1) 000424 3 ASCI 
1 ie 2:67$: .ASCIZ <200>/ *T' TO TEST CLOCK(CONTROL C TO EXIT)/ 
379 g03144 104401 003152 TYPE ,69$ | z:TYPE ASCIZ STRING 
(1) 150 600015 iss - HE ASCIZ 
(1) i369: -ASCIZ <200>/ *S' TO SET CLOCK/ 

380 008200 104401 003206 TYPE 71$ i; TYPE ASCIZ STRING 

(1) 000413 BR 70$ 7GET OVER THE ASCIZ 

ae 5g7ts: ,ASCIZ <200>/ 'R’ TO READ CLOCK/ 

381 O80 104401 003242 TYPE 738 ::TYPE ASCIZ STRING 

(1) 0 Ned BR 72$ OVER THE ASCIZ 

1) , 55738: -ASCIZ <200>/ 'M’ MODIFY OR READ ADDRESS AND VECTOR/ 
382 003319 104401 003320 "TYPE 75$ :3 TYPE ASCIZ STRING 

(1) 16 000414 743 “GET OVER THE ASCIZ 

(1) i758: -ASCIZ <200>/ *A* ACCURACY OF CLOCK/ 

$33 G03380 104401 003356 = SRE 77$ zzTYPE ASCIZ STRING 

(1) 54 0004 76$ >:GET OVER THE ASCIZ 

(1) -:77$: .ASCIZ <200>/ 'G" MODIFY SOFTWARE SWITCH REGISTER/ 
(1) 003426 763: 

384 00 104401 003434 TYPE 79% ::TYPE ASCIZ STRING 


Sa 


. ¢€ 




















MAIN. " pert (1052) 71 3rur-80 07:40 PAGE 1-15 
P11 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0023 
(1) 003432 000613 BR 78$ 2:GET OVER THE ASCIZ 
(1) on 55795" -ASCIZ <200>/ *E" EXIT “HALTS CPU/ 
385 00 104401 003470 "TYPE 81$ 33 TYPE ASCIZ STRING 
(1) 00 000420 BR OVER THE ASCIZ 
1) --81$: .ASCIZ <200>/ "H® HELP “PRINTS THIS MESSAGE/ 
80 001203 RESTRT: TYPE ,SCRLF 
001202 TYPE  ,$QUES 
001100 MOV #STACK, SP :SET THE STACK POINTER 
001172 C STIMES * INITIALIZE NUMBER OF ITERATION 
MOV a(SP)+, R4 ::GET THE CHARACTER 
000124 CMP #124, ° R4 -:IS IT 'T'? 
BNE 1 = :NO:BR 
004002 JMP LOGTST >:GO TEST THE CLOCK 
00 000123 1$: CMP #123, RG s:IS IT ‘S*? 
BNE ;:NO:BR 
013136 JSR PC NEWTIM 7:GET NEW TIME 
i BR RESTRT ::WAIT FOR CHARACTER 
4 é 000122 2$: CMP #122, RG ::I1S IT 'R'? 
167 0 BNE 3$ 3 :NO:BR 
4 12 014426 JSR PC, READ 7:G0 READ THE CURRENT TIME 
hi 16 BR RESTRT 
4 0 000115 33: CMP #115, RG z:I1S IT 'M'? 
4 BNE 4$ ::NO:BR 
d, 6 017234 JSR PC DEVCOD ::GET NEW ADDRESS AND VECTOR 
410 BR RESTRT - 
418 34 022 000101 43: CMP #101, = RG 
41 1 BNE 5$ 
414 7 0146754 JSR Pe, ee 
415 5 RESET 
41 5 BR RESTRT 
41 é 000105 S$: CMP #105, R4 
41 3 BNE rs ae 
4 HALT 
é 137 002770 JMP HELP 
4 § 000110 é6$: CMP #110, RG 
4 BNE 7$ 
425 002770 JMP HELP 
Ps 000107 7$: CMP #107, RG 
4 BNE 8s 
é GTSWR 
4 003530 he JMP RESTRI 
(1) 003722 TYPE 338 32 TYPE ASCIZ STRING 
(1) BR *GET HE 
(1) 37658: -ASCIZ oS00>7" ‘ILLEGAL CHARACTER, TYPE °H’ FOR HELP’’/ 





L 2 




























































































MAIN. oMacytt (1052), 7 13efvr-80 07:40 PAGE 1-16 | 
. GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ nn. | 

431 003772 000137 003530 | 

43 003776 000137 001712 ROUT1: ys START. : 

4 

435 006002 012703 000010 LOGIST: MOV #10, R3 

43% 904006 039777 000400 020046 36: BIT —aBITB, CSR : CHECK BATTERY? 

438 9040 wh 16 104401 004024 TYPE ,65$ 3s TYPE ASCIZ STRING ——— a 

(1) 0004 _— BR 64$ GET OVER THE ASCIZ 

(1 7j658 - CIZ <200>/"BATTERY IS DISCHARGING / 

$39 904064 4 7 000400 017776 MOV #3118. acsR ::RESET THE CLOCK 

44) 004066 001347 BNE 3$ > :BRANCH IF NOT ZERO 

445 004072 9047 3 016106 5$: isR PC, CNTLC -IS IT CONTROL C? 

ois 106407 CKSWR 2215 SOFTWARE SWITCH SELECTED? 

6 

447 ;THIS ROUTINE WILL SET AND RESET ALL WORKING BITS IN CSR 

449 + RARKEKRNRERR ERR 

S) ; TEST ; EST SEV/RESET BITS INCR 

(3) 1 +2 a: Ste ee ee ee 

(1) 10 000012 001172 wba Ov #10. ,.STIMES ;:D0 10. ITE 

430 110 900340 177776 MOV 7,  PSW ie T THE PR ORITY 

725 Spelas Sate ep RO ::POINTER TO THE TABLE 

186 e'@ 1 6 . RO sis IT END OF THE TABLE? 

454 0041 006214 cit 

455 004154 017728 2s: acsr te GET THE VALUE FROM THE TABLE 
ee : . py 

i Si a sont Se, ieee Mls fe 

638 o¢ 136 0 7200 001126 - BAD UMA CSR BITS" IN’ GOOD 

(oy Bees 4214 001126 BAD ::CLEAR UNWANTED BITS 

rr — 200 001126 BAD + ¢ARE THEY EQUAL? 

463 x 0¢ 017654 001122 BADA t READ STAT ATUS OF CSR 

tes Ot 743 ws: 23 THE BIT set IN CSR NOT MATCH WITH EXPECTED. 
&.¢ ‘ ce 

466 1 4S: , acsR BITS IN CSR 

: ease ; ae 33 L BITS IN CSR 
A, re 

of ‘ ; 737 aa B yatta VALUE 

ore 0425 ¢ ? BAD ; 7 CLEAR UNWANTED BITS 

474 OC 4 140 , THEY EQUAL? 

4g 04872 017 ¢ 017564 001122 BADA 

4g x 0 { 014356 017552 5s: MOV #14356, acsR gs 

479 00431 7 017544 001126 Ov F acsR. BAD :zREAD CSR 








M 2 
Al N. ¥11 052), 713 fur-60 07: 40 PAGE 1-17 
0012 (7k pit 13m BO TEST SET/RESET BITS IN CSR SEQ 0025 
004 01 001124 #0, GOOD :sEMPECTED VALUE 
1 904 01 M 024214 GOOD , GOOD 1 33 

004 04 001126 GOOD1, BAD 7: CLEAR UNWANTED BITS 

004 46 3737 001126 GOOD, BAD = ARE wey EQUAL? 
56 017737 017500 001122 acsR, BADA <IRAD STATUS OF CSR 
% 004737 016106 6% PC, CNILC 
72 000137 004440 BITEN+2 EXIT 





BITAB: 


EES 
Hee 


ord ceed oud 





PERREREEERS 

ae 
SSs5 

@ 

2 





sues 3. FURY YIMETteDEn Cinaeee GAeEEeene cl eee on 


we 
© 








(3) TEST 2 TEST TIMEINTERVAL COUNTER DECREMENTS IN PROPER ORDER 
( ) cmanedsbeeeaneeatnebeabeseieaeonbienentacetnmn nrc ts ccomaneine 
(2) OC iets SCOPE | 
» O 900012 001172 MOV = #10. , STIMES ;:D0 10. ITERATIONS 
fF “! 106 PC, ——sCNTLC 
¢@ 
1 ae : 
1 le 1$: , R2 ;3TIMEINT COUNT IN R2 
+ ae KOUNT CUE VALUE IN REG4 
13 ne 7: TIMINT COUNT INTO DEV REG 
13 & 8: ::READ TIME INTERVAL 
ee 
-> 


EIN TEA NTE E THe THE COUNTER 











fi ° : DEAD 
“ #318 TIRE INTE AL CHANGES? 
oC 024210 <1S ERROR FLAG SE 

oC a : 3BRANCH IF 

x t Gosoae oor é «EXPECTED 

04 56: 17274 001122 : STATUS. OF CSR 

00457 7:DEAD MAN TIMER FAILED 

A 72 TRY AGAIN 

004574 7? 024046 4$: =< JUST FOR CHECK 


N 2 
-MAIN. MACY1? (1052) 135-MAR-B0 07:40 PAGE 1-18 
KWLA.P11 i ee 07:39 T2 








CZ TEST TIMEINTERVAL COUNTER DECREMENTS IN PROPER ORDER SEQ 0026 
$00 005337 024050 DEC —«KOUNT CHECK NEXT DECREMENT 
2$ IF NOT ZERO YET 


Yelate 


REERORE 
8 
w 
N 


007776 001124 >sEXPECTED VALUE IN GOOD 
peace 001126 ;;ACTUAL VALUE IN BAD 
126 s2IS IT ORIGINAL COUNT? 
se IF YES 
>:STATUS OF CSR 
77 VALUE DIDN'T MATCH WITH EXPCT 


5 
5 
5 
5 


Ww 
ote 
Se 








017224 











0046 077777 5$: #77777, R2 $3 
104646 040000 017206 6$: #B1T14, acsR ::IS (TD BIT SET IN CSR ? 
1046 7$ > BRANCH IF BIT#14 SET 
JVSO 26 R2 2 DEC COUNTER 
WiLAAL 6$ ; ;BRANCT 

017174 001122 acSR, BADA ::CONTENT OF CSR 


>sBIT #14 DIDN'T SET 


PER’ 
+¥ 
3 


SSS LS SERS 


IN 


ar 








230 “ 20 040000 017154 WB1T14, aCSR 2 (71) BIT STILL SET? 
16 . ee 
PE: 00471 017146 001122 @acsR, BADA ::STATUS OF CSR 
90471 73:BIT#14 FAIL TO RESET 
1047 1$ >: TRY AGAIN 
5 0067 016106 8$: JSR PC, CNILC 
$ 104726 CKSWR 





MIVA 


Vv 















560 
re 2g AERAAAAERAAERAEKREREREREEEEEREEREEREEEEEERRAEEAEEEKEERRAEKEREEREREREEKE 
(3) SSTEST 3 FIND TIME CONSTANT FOR 0.5MSEC 
( ) 2 AEAAAARAAARAREAERKAEAREREEEREREEAEAAREEEREEEREERAREREEREKRERHKKRE 
(3) TST3: SCOPE 
) ? 001172 MOV —s-:«s#10. .STIMES ::D0 10. ITERATIONS 
o7 , JSR PC, — ‘CNTLC :z1S IT CONTROL C? 
? 024054 1$: OV. #300. CONST iA cline CONSTANT 
? 017102 11S: #47777, @RGS “3 TIME INT RVAL iNT REG 
C ’ #81T3+B1T0,aCSR : SREAD TIME | ALSETTING HOLD BIT 
37 024 ,  EXPCT z3 TI INTERVAL 
00, zz TRY SO MANY TIME 





coeeneren eg 
: SD ECREMENT READ INTVAL BY ONE 


017036 38: diy o HOLD BIT 


034056 


Bosese  OoIsze = 









7 DECIDES TIME CONST 
7 :DECREMENT TILL ZERO 


BNE 4$ 


B 3 































































-MAIN. MACYTT 3 jalan 07:40 PAGE 1-19 
CZKWLA.P1 T3 FIND TIME CONSTANT FOR 0.5MSEC SEQ 0027 
58% 505 017737 017012 024056 MOV  @RG4, READA >; WALUE_READ 
585 013737 024056 024060 MOV §- READA, READB 22 ,STORE IN OTHER. LOCATION 
587 SS2086 024202 024056 SUB EXPCT, READA 73 TIME a ae HAS CHANGED? 
588 005074 BNE 5$ 
389 009076 024054 INC CONST :J INCREMENT ASSUMED CONST VALUE 
591 0051 024056 000002 5$: CMP = READA, «#2 ;:DIFF GREATER THAN 2? 
392 005114 BGE  6$ :3YES BRANCH 
593 005116 924060 024202 MOV § READB, EXPCT ;CURRENT VALUE_IN EXPECT 
59% 124 0246054 DEC CONST :3TO GET CORRECT CONST 
595 0051 005 IMP OS ;3G0 BACK 
396 0051 24060 024202 68: MOV § READB, = EXPCT sEXPCT = READB 
, 142 024054 ASR —- CONST DIVIDE BY 2 
598 146 5006 JMP 
5 515 7$: RESET 
600 005154 NOP 
601 00515 NOP 
60¢ 0051 016106 JSR —s PL, CNTLC 
60 5164 CKSWR 
605 
606 ; THIS ROUTINE WRITES TIMEINTERVAL VALUES IN DEV RG4 
607 ;AND READS THE VALUE IN RG4 AND THEN COMPARES WITH EXPECTED VALUE 
ret 5 RECA AAAEAEAAKEEAKEAREREREEAARAKERAAREAEKEEREKERRKREERKEAEEREREEKEE 
(3) TEST d CHECK TIMEINTERVAL WRITES AND READS CORRECTLY 
(3) J AERA EEEARARAEEAREREAEEEEEEEEEAEERREREREREREEREREEEEREEEREEERAERERE ER 
(2) 1814: SCOPE 
(1) 12737 MOV #10.,$TIMES § ;;D0 10. ITERATIONS 
611 OC 12737 TIME]: Pf WPR7, PSW 33 
O16 OC fae JSR PC. CNTLC 3218S IT CONTROL C 
614 06 1 1$: MOV = ATIMTAB,RO {POINTER TO THE TABLE 
615 OC 2$: #TIMEND RO 731S 1T END OF TABLE? 
618 OC 14 4$ : 
61 JV >: CLEAR CSR 
618 x 037 : VALUE TO BE WRITTEN IN RG4 
x ee 3S: :3SET BIT TO READ TIME INTERVAL 
¢ e 737 7;CLEAR TIME INTERVAL ENABLE BIT 
a 13237 {KEEP rev Ean PRINT OUT 
5 a rer 3318 DIF ERENCE CE GREATER THAN 1 
. : oe 
x 0 3 016546 001122 73GET STATUS OF CSR 
104016 sSOFT ERROR TIME INTERVAL 
ZISET DIDN'T MATCH WITH ACTUAL 
( 004737 016106 4$: JSR PL, CNTLC 71S IT CONTROL C? 
6 139 005356 JP TIMEND+2 ;:G0 TO NEXT ROUTINE 
047777 TIMTAB: 47777 
634 46004 
635 30 40030 





¢ 3 


MAIN. MACY11 (1052) 13-MAR-B80 07:40 PAGE 1-20 
1 - 7:39 1% 








CZ7KWLA.P11 80 C CHECK TIMEINTERVAL WRITES AND READS CORRECTLY SEQ 0028 
696 005 46754 
637 905342 4 
os 005 
£20 905356 
641 005352 432 
O46 005354 TIMEND: 00000 
64 
es 
os ;THIS ROUTINE CHECKS IF INTERRUPT OCCURS AT GIVEN VECTOR AND BR LEVEL 
648 : 2 EAEAEKAAAAEAAAEKEKAKAKEEEEAEKAAEAEAEKAKAKERARARAKARREAKEEEKREREEERERE 
(5) z*TEST 5 TEST INTERRUPT OCCURS AT GIVEN VECTOR AND BR LEVEL 
(4) 5 EAE AEEAEEAEEKEEEEREEREEREEEEERREREERREREREEEREREERREREERERRERRERE 
(2) 5356 pba TST5: SCOPE 
(1) 5 01 7 000001 001172 MOV :;D0 1 ITERATION 
649 5 01 at 000340 56108 i3 
650 5374 012737 QO0O000S 024226 CHKINT: MOV 3 INTERRUPT FLAG 
651 et 012737 7 024110 MOV sé 
65 410 162737 0 026106 1$: SUB : LOWER PRIORITY 
65 5740 015737 $67 198 177776 MOV 22 
654 54 5037 4212 CLR 3;CLEAR INTERRUPT FLAG 
PF 4 39 7 016426 CLR ;;CLEAR CSR 
5 4 12777 S 016420 MOV 7 ENABLE INTERRUPT 
65 44 seer 0077 016420 MOV #40077, 3; TIME INTERVAL VALUE 
65 12737 2 0160 MOV #2, MES 322 SECOND INTERVAL 
on 737 015726 JSR PC, INTRITN :;WAIT FOR INTERRUPT 
ee 0246212 TST FLAG.2 :;DID INTERRUPT OCCUR? 
BNE 2$ 32. YES:BR 
664 024110 DEC LEVEL ss 
665 BPL 1$ iz 
a8 ERROR+34 ;;GOT NO INTERRUPT WITH BPU AT LEVEL O 
BR 3$ ZEXIT 
23: RESET 
6 NOP 
67 NOP 
67 NOP 
67 024102 001124 MOV BRLVY, GOOD : sEXPECTED BRLV 
024110 001126 MOV LEVEL, BAD 3;ACTUAL LEVEL 
1124 001126 CMP GOOD, BAD a2 
BEQ BRANCH IF EQUAL 





Q 
INTERRUPTED AT WRONG LEVEL 





PAAARAAO 
SaNOOS 


3$: 


>THIS ROUTINE IS TO INTERRUPT AT PARTICULAR TIME INTERVAL 


e 
oo TARA AAAAAAAAAEAAAAAEKEEEAAAEAEKAAAEEAREEREEEEEEAAEERAEEEEEREREES 


S*TEST 6 TEST TIME INTERVAL INTERRUPT 


fg REAR AAAAE AA ACAKAAAAAAAAAAAEEAEAERARAEEEAEAEEAREEAEEEREAERERAAEE 


COBPRREE 


dD 3 
-MAIN. MACY11 30A(1052) 13-MAR-80 07:40 PAGE 1-21 
CZKWLA.P11 135-MAR-B0 07:39 T6 TEST TIME INTERVAL INTERRUPT SEQ 0029 


















(2) TST6: SCOPE 
(1) 001172 MOV #10. ,STIMES 7z:D0 10. ITERATIONS 
one 177776 TIMINT: MOV DPRI, PSw 3zGET PRIORITY 
68 JSR PC. CNILC szIS IT CONTROL C? 
688 CKSWR 
prt 024226 MOV #5, INTREG . 7:JUST FLAG FOR TIMINTERVAL 
691 iene , MOV = ss #TIMTA1_RO >3POINTER TO THE TABLE 
£95 pee? 006002 1$: #TIMENT RO :zIS IT END OF TABLE 
694 145 6$ >zEXIT 
695 5037 024212 2$: FiLAG.2 7:CLEAR FLAG 
OS FF 016246 acsR 7:CLEAR CSR 
69 1 000050 016240 #B1T5+B1T3,aCSR >: INTERRUPT ENABLE? 
698 12037 001124 (RO)+, GOOD >;VALUE TO BE INTERRUPTED AT 
699 1 001124 016234 GOOD, a@RG4 g3 G4 
700 012737 5 016030 #5, TIMES ;zWAIT FOR APPRO 5 SEC 
701 et 015726 at INTRIN 7zWAIT FOR INTERRUPT 
Re 5737 026212 FLAG.2 ::DID INTERRUPT OCCURED? 
70 1424 5$ .3 H IF NOT 
Ae 5037 024212 FLAG.2 
705 042737 0 001124 #40000, GOOD 
RS 01 el pose 024214 MOV GOOD,  GOOD1 ; KEEP 
163737 1) 6 024214 SUB BAD, GOOD1 33TIME LEFT IN 
7 727 024214 000001 CMP GOOD1, #1 37:18 DIFF GREATER THAN ONE? 
7 ¢ BLE 1$ :zNO: GET NEXT VALUE 
710 137 024120 001122 MOV ACSR,  BADA 73READ STATUS OF CSR 
711 104001 ERROR+1 
at ae BR 1$ 33GET NEXT VALUE 
71 17737 016132 001122 5$: MOV aCSR, BADA 33 STATUS OF CSR 
714 04027 ERROR+27 3;TIME INTERVAL INTERRUPT DIDN'T OCCUR 
715 720 BR 1$ z3 NEXT VAL 
cig 0 042777 040000 016124 6$: BIC #40000, @RG4 3;CLEAR INTRPT FLAG 
717 OC 37 024226 CLR INTREG >:CLEAR THE FLAG 
at OC 77 016106 CLR acsR ::CLEAR CSR 
4 ; 0 f 016106 JSR PC, —CNTLC .s 
7 
721 Of 7 006004 TIMEN1 +2 EXIT 
4 ~ Q 4! 40 
4 ue 
725 OC 
, OC 
ee. 
728 (006 : 
7 é 016324 PC, GETRDY zz INITIALIZE READY BIT 
$ 
7 of RRA AAAAAAAKKAAKKEAEAEAEEEEEAAEKAEAEAEREEAEKERERAEARAEAAEEEEREEKEEREDSE 
(3) TSTEST 7 TEST HOLD BIT SET/RESET IN TIME 
( ) 22 REARAAKEKCKAARAAKEAAREEEAREKEEEAKAKKARARARARAALZALAAKKAKKKAKKEKKKKAREKEAES 
(2) 00601 TST?: SCOPE 
(1) 12 012737 000012 001172 MOV #10... STIMES 77D0 10. ITERATIONS 
735 004737 016106 JSR rt. CNILC 
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006 
0 


124 
126 
1 
140 
144 
15 
15 
15 
160 





000001 
016226 
000001 
016006 
015770 
016226 
000001 


015750 
016106 


016026 
016014 
001122 
015774 


015756 
001122 


001172 


001172 


015666 
015652 
015640 


015622 


atte 13-MAR-80 07:40 PAGE 1-22 
1 -B0 07:39 17 TEST HOLD BIT SET/RESET IN TIME 





E 3 


;3SET HOLD BIT IN CSR 
:3WAIT FOR HOLD BIT TO RESET 
31S HOLD BIT RESET? 
:3STATUS OF CSR 

:SHOLD BIT FAIL TO RESET 

:3SET HOLD BIT AGAIN 
ZSFORCE TO 

:31$ HOLD BIT RESET? 

i f :BR 


>:STATUS OF CSR 
::HOLD BIT FAIL TO RESET WHEN FORCED TO RESET. 


TEST SECOND VALUE IS CHANGING 





J EAAKAAKAEAREEKEEAEAEREEEEREARAKKEEARAKEEARAEEEAEERERERAEEKKRERREEEE 


Ff EAA EAAAKEEEAEKEEEEKEREEEEEAEREKERAEKARKKERRERRARRARREREARERKREEE 

















:2D0 1 ITERATION 
22SeT “ YEAR ,MONTH ,DAY ,HOUR ,MIN 


; sREAD 
:z:DOES SECOND VALUE CHANGES? 


ees 
ee 


32NO0: 
3; ; CHECK 
BA 


AGAIN 
CK 


B 
5 FERRARA EAARAAEREREEREAAAREAREEREARERAREAREAREEEKEEEEEEKKEKRKKE 


CKSWR 
MOV WBITO, acsR 
JSR PC, WAIT 
BIT #BITO. aCSR 
BEQ 1$ 
MOV acSR, BADA 
1$: acsR 
JSR s WAIT1 
BIT #BITO. ac 
BEO 
MOV acSR, BADA 
ERROR+32 
23: JSR PC, CNTLC 
CKSWR 
:READ SECOND HERE 
: «TEST 10 
TST10: SCOPE 
MOV #1. STIMES 
JSR Pp GET2 
MOV ae) 
1$: cmp @RG4, Ri 
BEQ 
CMP R1 
BEG 
23: 
:THIS ROUTINE CHECK HOLD BIT IN CSR 
>*TEST 11 
TST11: SCOPE 
MOV #10. .STIMES 
HOLTST: CLR 
MOV #47777, ARGS 
MOV #BITO, acsR 
MOV @RG6, R4 
1$: BIT WBiTO, aCsR 
BEQ 2$ 
CMP @RG4, RG 
BEQ 1$ 
BIT #BITO, acsR 


TEST HOLD BIT IN CSR HOLDS TIME WHILE SET 


> ARERR AAAKAEEARAEREEAAEEARAEAAKEARAEEERRERAEEEKEEEKEEEAKKEKKEEHEES 









77CLe 


72D0 10. ITERATIONS 


AR CSR 
32SET TIME INTERVAL 


72SET HOLD BI 
READ SECOND VAL 





Be Se Ba Be Be Be 


T 








UE 

BIT SET? 

F HOLD BIT IS RESET 
OND VALUE CHANGED? 





:BR 
IS HOLD BIT RESET? 


SEQ 00350 
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PSII SIIISSSFIQ 
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805 
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1 
1 
(1 
(1 
(1 
1 
1 
1 
1 
1 
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ewe we PW OOO WOutweww 
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006240 
006242 
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(1052) 
-80 


3-MAR-80 07:40 


1 
07:39 
016522 


006774 
016522 
00000 


001126 
000074 


001124 
001126 


015522 


1117 


64$: 


3$: 
4$: 


5$: 
6$: 


65$: 


8$: 


PAGE 1-23 


F 3 
TEST HOLD BIT IN CSR HOLDS TIME 


GETTIM 





WHILE SET 


77 YES:8R 
;cREAD ALL PRESENT VALUE 
re BIT FAIL TO RESET 


: Se 
;zREAD CURRENT VALUE OF SECOND 
>sEXPECTED VALUE OF SECOND AFTER 
>;cHOLD BIT RESET 

szEXPECTED VALUE IN GOOD 


sve TUAL V 
:sEXPECTED VALUE MORE THAN OR EQUALS 60.? 


73NO: 
>zEXPECTED SECOND CAN'T BE MORE THAN 59 
> EXPECTED=ACTUAL? 

:7YES THEY ARE EQUAL ,BRANCH 

;zREAD VALUE OF SECOND NOT MATCH 
;cWITH EXPECTED VALUE. 


>:SET HOLD BIT AGAIN 
>:READ TIME INTERVAL VALUE 
THEY EQUAL? 


ALUE 
3;2READ VALUE OF TIME INIERVAL 
: READ STATUS OF CSR 


;sEXPECTED VALUE NOT MATCH WITH ACTUAL VALUE 


=:1S BIT14 SET IN CSR 


HOLD BIT 
33GET PREVIOUS SECOND VALUE 
3 READ CURRENT SE 
; EXPECTED VALUE MORE THAN OR EQUALS 60.7 


:2NO:BR 

> EXPECTED SECOND CAN'T BE MORE THAN 59 
: SEXPECTED=ACTUAL? 

READ CURRENT STATUS OF CSR 

>:PREVIOUS SECOND NOT MATCH WITH 

Be gd SECOND WHILE HOLD BIT 

+S EXIT 

>:FORCE HOLD BIT TO RESET 

::WAIT FOR 1OMSEC 

7 :READ PREVIOUS SEC 

CURRENT SECOND 
;ZEXPECTED VALUE MORE THAN OR EQUALS 60.? 
> SEMPECTED SECOND CAN'T BE MORE THAN 59 
: EXPE CTED=ACTUAL ? 


>>READ CURRENT STATUS OF CSR 
3 ACTUAL VALUE NOT MATCH WITH EXPECTED. 
::SET HOLD BIT NOW 

>: TIME INTERVAL VALUE FOR 1 SECOND 
















ee 
ee 
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ese 
nnd ona —s 
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77> 
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005237 


oe 


—_ 
S258 S 
Sasa 
NN NNWNN 


wd aed dt 
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Sua 
WWOor 
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000074 
001124 
015072 
016106 


014742 





001124 
001126 
000074 
001124 


001126 
001122 


016224 


001124 
001126 


000074 


001124 
001126 


001122 


G 3 
1-24 


eaten 1 -80 07:40 PAGE 
1 ~80 07:39 711 TEST HOLD BIT IN CSR HOLDS TIME 


737 
77 
7 
7 


WAIT2 
DELAY 
GOOD 


JSR 
CLR 





67%: 


68$: 


10$: CNTLC 


WHILE SET 

>; ;WAIT FOR A SECOND 
>zFORCE HOLD BIT TO CLEAR 
: T FOR 10MSEC 


7ZREAD PREVIOUS SECOND 
> = CURRENT VAL Tg BE ONE MORE 


SEQ 0032 





> ;READ OND 

—_ VALUE MORE THAN OR EQUALS 60.? 
>:EXPECTED SECOND CAN'T BE MORE THAN 59 

- SEXPECTED=ACTUAL ? 


s3 :BR 
sz:STATUS OF CSR 


szEXIT 

3:CLEAR BIT14 IN CSR 

33 TIME INTERVAL VALUE FOR A SEC 

MP T FOR A SECOND 

;sPREVIOUS SECOND 

>: CURRENT SECOND 

>zEXPECTED VALUE AFTER ONE SECOND 
le VALUE MORE THAN OR EQUALS 60.? 


> ZNO: 
>zEXPECTED SECOND CAN'T BE MORE THAN 59 
; EXPEC TED=ACTUAL ? 

77 YES:8R 

szREAD CSR 


~SBTTL CHECK DISPLAY ON THE CLOCK 


SEERA AKCRARAAEAEAERATKEERAEEAERAAEAEAAEEREAEAAOKRAAREKEEAERREREEKKEEEEE 


S*TEST 12 


TEST DIGITS IN DISPLAY WORKS 0.K. 


SS RASA AEAAEAAAAAEAAAKAEREREEEEAEKEAEAAEKAKARAAEKAEAAEAREAREKEEKEKKHEER 





TST12: SCOPE 
MOV #1,STIMES 

DISP: PC, CNTLC 
DHOUR 

DISPLY: WB1T15, acsR 
#401,  aRGO 
PC, RDYBIT 
FLAG. 
1$ 
@acsR, BADA 
PC GE TRDY 

1S: #B1T15. acsR 
PC, RDYBIT 
FLAG. 
@CSR, BADA 





3:D0 1 ITERATION 


7; INITIALIZE HOUR+MIN 
.s TIME 


:>SET MONTH*DAY 
:CHECK FOR READY BIT SET 
“IS FLAG SET? 


: ;BRANCH IF READY BIT IS SET 
7 STATUS OF C 

: READY BIT DIDN'T SET 

3:;GET READY BIT SET 


7;SET HOUR + MIN 
72SET HOUR+MIN 

sCHECK FOR READY BIT SET 
71S FLAG SET? 

; ;BRANCH IF READY BIT SE/ 
::READ STATUS OF CSR 

7 READY BIT NOT SET 
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eS ee ee ee ee ee ee eee SS SS 
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ae 

0071 

0071 
7144 $3 

007150 O65 7 
7156 

O07 182 7 
1% 90051 
ate 49 
7 5 
7 240 
7 40 
7210 00024 
7212 00013 

007216 


7 
ur 
™ 
™N 


— 
EMAMONAOO 
282 
w =: 
INN 
NNN 


SN SS NS SS ISI 
—e 





OS ale aie Ss PAGE 1 


016324 
000001 
016032 
02415 

000075 


000377 
013473 
016106 


007216 


000012 
16106 
24106 


7524 
7556 


75 
gi 
o1706¢ 
i340 
Breer 
17206 


024210 
014510 


016104 


024152 


024152 
024152 


007172 
177776 


014564 
014560 


024052 
014524 


001122 


JSR 
23: 


gz 283 


SL ptt tof 


H 3 


-25 
TEST DIGITS IN DISPLAY WORKS O.K. 


«* GETRDY 
DISP 





TABDRV 


7zGET READY BIT SET 


-sWAIT FOR SECOND 
sWAIT F 





OR SOME TIME TO 
:# SEE a. IN DISPLY 






iI NCREMENT MINUTES 
HIS NIE NOT 


F NOT 
: + INCREME 
SIT NOSHOURSOMIN 


>THIS IS TABLE DRIVEN ROUTINE,IT TESTS INVALID VALUE OF MONTH+DAY 


2 FASE EAEKKARERKEAAEKEREERERERAAKAARERKAEERERRAEREKEAERERREREKEE 


TEST CHECKS FOR VALID/INVALID VALUES OF YEAR 


, AEAERARKAKEAARAERAAAKEARERAEAEEKRAERAAERERAKAERAEREREREERKEEEREREKKEEE 


> *TEST 13 
18113: SCOPE 
18: 


2$: 








223: 






#10. ,STIMES 
DPRI, 


#TABLE1 RO 
#TABEN’ ,RO 


: tae 
TABEN1 +2 © 
acSR 


(RO)+, GOOD 
#81714, aCsR 





aRGO 
RDYBIT 


GOOD 
PC, 
FLAG. 1 
#77777 ,COUNTR 








we 115.aCSR 
FLAG. 1 
33$ 


@aCSR, BADA 


:3D0 10. ITERATIONS 


ha IT CONTROL C? 


SOFTWARE SWITCH SELECTED? 
TABLE 1 









Seer Geers 
i ee ee 
a 


OF CSR 









SEQ 0033) 


me 


; 3 





MAIN. MACY11 1a? ap 13-MAR-80 907: £0 PAGE 1-26 | 
ZKWLA.P1 7:39 713 TEST CHECKS FOR VALID/INVALID VALUES OF YEAR SEQ 00 34 | 
925 000006 014474 433$: MOV WBIT2, aCSR > sREAD YEAR VALUE 
4 014472 001126 MOV aRGO BAD ACTUAL READ YEAR VALUE 
5 0060000 007124 MOV GOOD > :EXPECTED VAL 
$ 001126 001124 CMP GOOD : sBECAUSE INVALID YEAR VALUE 
BEQ = 360 GET ANOTHER VALUE 
8 014444 001122 MOV aCSR, BADA . AD C 
ERROR+1 = YEAR VALUE DIDN'T MATCH WITH EXPECTED 
BR 2$ >: TRY NEXT VALUE 
332 3 
007424 012737 077777 026052 MOV #77777 .,COUNTR > DELAY LOOP SETUP 
007432 iy pte le 017206 JSR PL. DMT ;z:DEAD MAN TIMER ROUTINE 
0074 032777 100000 014416 BIT #BIT15, aCSR :21S DE BIT SET 
007444 001772 BEQ -12 sé AGAIN 
7466 Opa ac 024210 TS? €tA6.1 siie ? 
7452 1405 4$ 7 BRANCH IF 
7454 017737 014402 001122 BADA 3:GET CSR ST 
Sie 106011 He ye jo TO SET 
74 01 000004 014366 4$: acsrR ss Y EAR” 





7474 017737 014364 001126 





38 t23 tA TY eer 


7502 023737 001124 001126 sé ? 
751 5 | $2 T MORE 
751 017737 014344 001122 BADA + sREAD STATUS OF CSR 
gt AD YEAR VALUE NOT MATCH WITH EXPECTED 
75 000651 ::GO CHECK FOR END OF TABLE 
007524 017073 TABLE1: 17073 
7526 016455 16455 
75 A okay 1 
75 17076 17076 
950 75 15474 15474 
951 o3 1 O00 17( 
9 : f 4 174 1747 
54 174 1740 
bare 1 164351 
7 17074 17074 
Hal 44 17077 
7554 9000 Sie: 
7556 800000 TABEN1: 00000 


. 
SEERA EREREREETEREEAAAREAEAEAEREREEERRERAEEEEEEREREEES ** 


GASES OOwOOOO 
MAWNYVIVIV! 
Ooo yous 


) ; *TEST 14 TEST VALID & INVALID VALUES OF MONTH*+DAY 
) LRRRAAARER REAR EREEERAAAARERREOREEEEEREREEEEEEER EERE EEE 
(2) ? ate TST14: SCOPE 
(1) 75 01275, 000010 001172 MOV #10, STIMES 3:D0 10 ITERATIONS 
$3 GOr570 09024 TABOR eS Nop 
208 ele 39 016106 JSR PC, CNTLC 7218S 17 CONTROL C? 
96 407 CKSWR 
968 737 017000 JSR PC. RDYBIT a a re FOR READY BIT SET 
(1) 7 5737 024210 TST FLAG.1 Z1S FLAG SET? 
969 007610 1406 BEQ 1$ ; ;BRANCH IF READY BIT SET 


-MAIN, 
CZKWLA.PT1 


970 
971 
97 


974 


PRESS SARS fi tot iota SS RRS 


NAW NS N 
Susu oul 
WA OU 
= NN NNNO NID |] NEN 


ed 





® 


§ 3 
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R80 07:39 


014244 


gale 


016032 
014132 


024210 


001122 


014200 
014174 
024052 
014152 


024144 
016104 


024144 


001126 
001126 
001122 











TEST VALID & INVALID VALUES OF MONTH+DAY 











MOV @CSR,  BADA > CURRENT CSR 
ERROR+2 = TREADY BIT FAIL TO SET 
JSR PC, GETRDY READY BIT SET 
#TABLE2 RO >:POINTER TO THE TABLE2 
CMP #TABEN2 .RO zzIS END OF TABEN2 
BGT 22$ ; <BRANCH IF 
JMP TABEN2+2 > sEXIT 
a GOOD > <MONTH*+DAY VALUE FROM TABLE2 





ac 

ied aCSR 
er. ip 
#B1T15+B1T7, -@CSR 





:CLEAR CSR 
ISET BIT #15 IN CSR TO WRITE MONTH+DAY 
> sMONTH*DAY IN DEV REGISTER 
:3 INITIALIZE COUNTER 
;sWAIT LOOP 
3318 RDY & ate FLAG SET 








E VALUE 
:sREAD MONTH+DAY NOT MATCH 





s 
2 
> 


CY¥i1 30A(1052) 13-MAR-80 07:40 PAGE 2 
135-MAR-80 07:39 714 TEST 


me 
™~ 
x 
Ms 
° 
v 
_— 


71 


1 § 14052 001126 5$: 
oer Se 
7 1126 001126 


1 4 014026 001122 
000674 
006436 


Sie ee ee ee a a a re | 
An 


$3 


eNO 


BR 
004 TABLE2: 6436 
004 0000 





R35 


VALID & INVALID VALUES OF MONTH*DAY 


2$ 

@RGO, BAD 
(RO)+, GOOD 
GOOD BAD 








2s 
@CSR,  BADA 





3:GO GET NEXT VALUE 
;;ACTUAL VALUE READ 
7ZsEXPECTED VALUE IN GOOD 
;7ARE THEY EQUAL 

>; BRANCH IF YES 

3;:GET STATUS OF CSR 

>zEXPCT MONTH*+DAY NOT MATCH 





SEQ 0036 
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1011 01 
erg 4, 
101 10052 
1014 010054 
1015 pees 
1218 01 
1017 010062 
1e5 01 
1019 01 
10 1 
0 7 


OOOCOOOOOOOoooo 


SBVFARANASSRVRARAN SS 


SOUT PUN —OODNOULWIU=OO 


ARERERERE RRA 


OOo0oO0oo~cooeo 


ERIS 


caveat nab re lh cre et ee ae ee eed ne eed 





288 
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— — — =SOOoO 


OOOOCOCOCOSOOOOOOOOOOoOoooo00o 


OOOCOCOOCCOOooooooo 


PRRL 
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ee (1052) 
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000020 


016106 


024210 
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12777 100000 
012777 000000 
004737 
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013634 
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TABEN2 : 





6000 
6024 
6024 
0000 


L 3 
VALID & INVALID VALUES OF MONTH*DAY 


; THIS ROUTINE gd VALID AND INVALID HOUR*+MIN. 
;1F HOUR+MIN 





; CORRECT VALUE oF HOUR+MINUTE IS 
WRITTEN YOU CAN*T WRITE ANOTHER VALUE OF 
: VALID VALUE IN MONTH AND DAY REGISTER 


TABDRS: 





NVALID IT ag ANOTHER VALUE OF HOUR+MIN UNTIL 
E WRITTEN. ONCE CORRECT V 
HOUR+MIN WITHOUT WRITING 









PC, CNTLC 33 

PC, RDYBIT CHECK FOR READY BIT SET 
FLAG. 1 -IS FLAG SET? 

11$ 

acSR, BADA 

PC, GE TRDY 

aTABLES. RO 





ABEN3 RO 


#81T15.aCSR 
#000000, aRG2 


PC, RDYBIT 





HOUR+M 
:HLAST VALUE OF HOUR*+MIN BEFORE 
: tHECK FOR READY BIT SET 


SEQ 0037 


x 3 


-MAIN, aa Oe) 0 — oe 07:  B PAGE 3-1 
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a 






VALID & INVALID VALUES OF MONTH*DAY SEQ 0038 
TST FLAG.1 :IS FLAG SET? 
1664 B10369 sions BEQ 12$ >:BRANCH IF RDYBIT IS SET 
1009 0244 013612 001122 MOV @aCSR, BADA -* OF CSR 
1068 010252 ERROR+2 
1070 91056 128: we 
107) 01026 2$: MOV 
‘ ‘ 
19 010274 013560 MOV 
1074 010 02 013556 MOV 
10% 91081 a 
1077 o19 013532 "Mp 
Ly 
io oi 
1382 Stee Sng 0oTT26 
| 35¢ 001124 001126 
« § 
- TUS OF CSR 
re 001124 3s: : SEXPECTED VALUE IN GOOD 
bz 13462 001126 ::ACTUAL VALUE READ IN BAD 
1089 10200 : 
994 001124 001126 s3 " QUAL ? 
3370 WRITE MONTH+DAY 
1S9e 10424 602004 013439 HADAY VALUE IN RGO 
1094 010432 19000 ; CHECK FOR READY BIT SET 
(1) 01 024210 ‘IS FLAG SET? 
1095 Q1 :3GET re VAL 
1 10444 013412 001122 ;3GET STA 
1 ok 43: 
a2 TABLE3: 2073 
Hs 10688 00073 
144 : sHOUR=25 
i 5 9} 64 $0008 : EXPECTED 1 HOUR=0 MINO 
3 7HOUR=0 ,MIN=60 
1 8} > EXPECTED HOUR=0,MIN=0 
7 
77 : :HOUR=4 ,MIN=63 
Nee sige 380 Bo ee 
) : ZHOUR=12 ,MIN=20 
13 BiB 8 OES Reo mnno 
111 
: ZHOUR=13 ,MIN=30 
1148 4 : pease < EXPECTED HOUR MIN (13,30) 
171 
: :HOUR=0 ,MIN=16 
ie Stes sass pn ee 





















































N 3 
-MAIN. MACY11 30A(1052) aac ay PAGE 3-2 





















C7KWLA.P11.  13-MAR-BO 07:3 TEST VALID & INVALID VALUES OF MONTH+DAY SEQ 0039 
1120 010512 006007 6007 : sHOUR=12,.MIN=7 
1121 010514 006007 6007 [EXPECTED HOUR=12,MIN=7 
1 ‘ 010516 000000 TABEN3: 00000 
1126 
1125 :THIS ROUTINE WRITES VALUES IN DEV REGISTER RANDOMLY 
1126 [THAT IS INSTEAD OF WRITING IN MONTH#DAY REGISTER 
1127 “WRITE IN HOUR+MIN REGISTER & INSTEAD OF WRITING IN 
1128 *HOUR+MIN REG,WRITE IN SECOND REGISTER 
1 1 . KAAAEKEAAAEAAKEAKAKEAZEKERERKAKCAKAAARAEKEEAAERARAAAKKAEEKEKERERERER 
(3) *aTEST 15 TEST RANDOMLY WRITE VALUE IN DEVICE REGISTERS 
(3) : bs EAAEEEEACAAAAAAAKAAAEARERERAEKAEKAAKEKEAKAAKRAEKAEKEKRKAKRKEKERERREEEREER 
(3) 105 1ST15: SCOPE 
(1) O1 Si2737 000012 001172 MOV #10. .STIMES ::D0 10. ITERATIONS 
11 10530 006737 016106 RANDOM: JSR PC, CNTLC 
1131 105 104407 CKSWR 
1 é O1 5% 005077 013320 CLR acsR :: CLEAR CSR 
1 10542 012777 100000 013312 MOV #81T15,aCSR 3SET BIT #15 IN CSR TO WRITE 
1135 01 777 005005 013310 MOV #5005, aRG2 > :HOUR+MIN REGIST 
11 1 7 017000 JSR PC, RDYBIT SWAIT F Y BIT SET 
11 1 737 013302 024144 MOV @RG4, SEC ::READ PRESENT SECOND VALUE 
11 1 7 016104 MOV #2, CONT3 =:WAIT FOR A SECOND 
11 1 7 01 JSR PC; WAIT >: WAIT 
1140 M 01 024144 CMP aRG4 SEC SARE THEY EQUAL 
1146 1 1 Big 2 ::CLOCK WAS SUPPOSE TO BE RUNNING 
1143 01 5 1$: *:1S ERROR FLAG SET? 
1144 01 1 
1145 01 001122 
1146 1 1 ::RDY BIT WAS NOT SUPPOSE TO BE SET 
1147 01 013230 118: TE HOUR+MIN VALUE IN SEC REG 
1148 01 7 :CHECK FOR READY BIT SET 
{22 ? >1S FLAG SET? 
11 , ! 001122 i 
h 7 ERROR AS FLAG DIDN'T SET 
11 ¢ 1 1 013172 2$: 7; WRITE MONTH+DAY 
1 1 013166 ::BUT WRITE IN RGO(MONTH+DAY)REGISTER 
34 -C READY BIT SET 
1155 01 024144 
1 016104 
ne 8 sete 
1186 61 
17 1 013114 3$ 
1 777 013112 
(1) O01 5 
1164 01 737 024144 
1165 28 ¢ 016104 
1167 01 7737 024144 2 
1168 01 1007 CLOCK RUNNING 
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™ 
aSsa 


eed aed eee od ed 
UF 


ees 
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ssessecececes 
att =f) 
NuRSSaks 

At Nt ENE NIE ET 


100000 


024210 
013032 
016324 


917008 
179797 
012710 


001124 
Sori oe 


177777 


001122 


001172 
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4%: FLAG.1 
5$ 
aCSR., BADA 
PC, GETRDY 
5$: 


2 2 EEAEKEAEEAEEEKAEKAAKARAAKERERERAAARAAAERAEAKRRKRAERERAAARAERREEREKERREE 


=*TEST 16 TEST ROUTINE TO CHECK CLOCK KEEPS CORRECT TIME 


2 EAEEAEAAAAAEAAAEEEAEEAEEEEEAEAARKEEEEKEAERAKAERERRRAERAAEREEKRAREEEE 



























TST16: SCOPE 
MOV #10. .STIMES 7:D0 10. ITERATIONS 
BASIC: JSR PC, CNILC ce 
CKSWR 
MOV ;;POINTER TO THE TABLE 
1$: :z:IS IT END OF TABLE? 
a IF NOT END OF TABLE 
23: 
Zé IN CSR 
3;VALUE TO BE SET IN DEV REG 
+ 33 SS OF DEV REG 
R2 32 VALUE IN DEV REG 
PC :CHECK FOR READY BIT SET 
31S FLAG SET? 
12$ ; ;BRANCH IF SET 
:z:RDYBIT FAIL TO SET 
PC 3:GO GET READY BIT 
12$: 3231S IT END OF SUBSET? 
1$ 3;GET NEXT VALUE FROM TABLE 
3$: CLR acCsR 
MOV (RO)+, R2 
MOV (ROJ+, RG 
MOV R2 a(R4) 
MOV (RO>+, GOOD 
MOV {(RO}+, RG. 
MOV at{RG). BAD 
BEQ 4$ 
ERROR+1 he - 
4$: CMP (RO)+, #1 7:18 IT END OF SUBSET? 
BNE 7 BRANCH IF NOT 
BR 1$ 7218S THERE ANY MORE VALUES 
BASTAB: BIT14 :;BIT TO SET YEAR VALUE 
CSR 7 ADDRESS Of CSR 
17073 35 = 1979 _ 
RGO 7 ADDRESS OF DEVICE REGISTER 
000000 :ZNOT END OF SUBSET 
BIT15 ::BIT TO SET MONTH+DAY 


:sERROR CLOCK WAS SUPPOSE TO BE RUNNING 


SEQ 0040 


-MAIN, 
CZKWLA.P1 
1 11234 
1221 011236 
1 1240 
1 1262 
iF 
1 
1 
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TEST ROUTINE TO CHECK CLOCK KEEPS CORRECT TIME 


BITO 
CSR 


RG2 
177777 
BIT14 
CSR 
17074 
RGO 


B1T15+B81T1 





; sADDRE 
7ZNOT END OF SUBSET 


>sB1T TO SET HOUR+MIN 
SS OF CSR 
; ;HOUR=12.M IN=0 
; ;ADDRESS OF REGISTER 
oa OF SUBSET 
BIT TO READ YEAR VALUE 
; ADDRESS 
; SEXPECTED YEAR VALUE 
SS OF DEV REG 
> NOT END OF SUBSET 
co READ JULIAN DAY 
SS OF CSR 
se > EXPECTED JULIAN DAY 
sADDRESS OF DEV REG 
> :NOT END OF SUBSET 
32TO READ HOR+MIN 
ss SS OF CSR 
: : EXPECTED HOUR+MIN 
7 ADDRESS OF DEV REG 
3ZzEND OF SUBSET 
:;SET YEAR 
; sADDRESS OF CSR 
31980 
; S ADDRESS OF DEVICE REG 
END OF SUBSET 
SET JULIAN DAY 


22 JULIAN DAY (JAN 1) 
SS OF DEV REG 








;;NOT END OF SUBSET 
;;SET HOUR+MIN 





«TEND OF SUBSET 

7Z7READ JULIAN DAY 

; s EXPECTED VALUE 
ZADDRESS OF DEV 4) 

7:NOT END OF SUBSET 

7 READ MONTH+DAY 


77 JAN 1 31 
7 ADDRESS OF DEV REG 





SEQ 0041 
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~NEW $$ OOOO uf ulrtu—C 


i$ 
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eed wed ee eed eed 
ee eh weed eed eee ced aed eed ed eed 
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OoOooodooeo 
ond ed ead ead ed od 


SERS 


wu 
Soon 


WARE 2 EERE EE 
OFSRS RS 


ed ee ee eed aed asd ed ee ee eed ed ed ced eed eed eed eed eds td =D ell eel eed el eel eel cee eld ned 
ee ee ee ee ee ee me ed ee ee el eed eed ee ee eed wd oe eld eel ceed ee eld ee eed eed ed 
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0160350 
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TEST ROUTINE TO CHECK CLOCK KEEPS CORRECT TIME 


SEQ 0042 
szNOT END OF SUBSET 

>ZREAD HOUR+MIN 

>cEXPECTED HOUR+MIN 

[INOT END OF SUBSET 

;ZREAD SECOND 

38 OF CSR 

>cEXPCTED SECOND VALUE 

> ADDRESS OF SECOND REG 

: OF SUBSET 


>sEND OF TABLE 


> THIS ROUTINE CHECKS IF INTERRUPT OCCURS PROPERLY 


2 
sd 


SS EEAEKEEKAEKEAEAAEAKAEKEEARAEAEAKEEEKERRAEAERRAKEEKREAARKEAERERREKEREEAREREKE 


UPDATE INTERRUPT 


WeAhiti titi ste sesee ci pita asic i sec eee eer eraser reece rerrorcrrcririgiigis | 


“TEST 17 TEST 
1ST17: SCOPE 
MOV #10. .STIMES 
TABDR4: MOV DPRI,  PSW 
JSR PC, CNTLC 
CKSWR 
MOV #TABLES RO 
18: CMP #TABENG RO 
BGT 2$ 
JMP 8$ 
23: MOV #1 INTREG 
MOV (RO)+, GOOD 
CLR acsR 
CLR FLAG. 2 ae 
MOV #81T15+B116,aCSR 
MOV GOOD, arco 
CLR ACSR 
MOV #5, TIMES 
JSR PC, INTRTN 
TST FLAG.2 
BNE 3g 
MOV @csR, BADA 
ERROR+14 
CLR acsR 
TST (RO) + 
JMP 1$ 
3s: CLR FLAG.2 
JSR PC, RDYBIT 
TST FLAG. 1 
BEQ é$ 


D0 10. ITERATIONS 


::POINTER TO THE STARTING ADDRESS OF THE TABLE4 
Pe She 3 _—— 


2sFLAG TO INDICATE UPDATE INTRPT 
; UPDATE VALUE 






LAG 
: | T ENABLED 
MONTH*+DAY — IN DEV REG 





OF CSR 

IDN'T OCCUR WHILE 

UPDAT ING or WITH INTENABLE 
SABLE INTERRUPT 


72:POP UP PONITR 

7:GET NEXT VALUE 

es INTERRUPT FLAG 
7CHECK FOR READY BIT SET 
71S FLAG SET? 








—E 4 
mA MAC 052) 13-MAR-B0 07:40 PAGE 3-6 
rv sla no80 07:39 117 














SEQ 0043 
TEST UPDATE INTERRUPT 
TKWLA.P11 - TED VALUE IN GOOD 

1358 Oyiete 012264 001126 @RGO _— 

1355 ad 001124 001126 

: 

1334 Oi1682 024120 001122 

1383 41602 011454 

: 11 OO1124 4 4S: 

Has Gries Gees SABE Ber 

7 O11 
: 011676 024120 001122 
1359 011676 
} a 
: 011704 001124 a8: SICLEAR CSR 
1 11710 012146 ys > ia 
1845 si 100100 912134 S HOURSMIN. IN. DEV REG 
| si cat: vai ‘SealT For INTERRUPT 
1s 11766 015 — 31s INTERRUPT OCCURED? 
1381 11986 rie “TREAD STATUS OF CSR 
1382 011760 012076 001122 TEINTERRUPT DIDN'T OCCUR WHILE 
: 6 iE ; UPDATING CLOCK 
1354 piso > UNABLE INTERRUPT 
ee 11998 — ; POP UP PO oe 
*: NTERRUP 
: 13065 ESE 6$: HECK. FOR READY BIT SET 

“1S ; 
1 12006 17000 i eT? 

1 OF wpe = NPECTED VALUE OF HOUR+MIN 
1184 or ACTUAL HOUR+MIN 
te 9 2086 ppt 186 ") 

1328 6 001124 001156 
1 1 
1365 01 
1 1 
1 1 
’ 1 
1 1 
1 1 
1 " 1 
1372 01 
1373 01 
8B 
1376 01 

(1) 01 
1377 01 
8 
' 1 





024120 001122 mea fil _ WITH EXPECTED 
I 
Bee gras” Ae TRY EO. 
nti 001 Ize Lae NOT MATCH WITH EXPECTED 
pees BE GE FOR te ADY Ets 
i 011720 Ole B: >;READ VALUE NOT MATCH WITH EXPCTED 





‘nl 
F 4 | 
MAIN. MACY11 30A(1052) 13-MAR-80 07:40 PAGE 3-7 | 
CZKWLA.P11 13-MAR-BO 07:39 117 TEST UPDATE INTERRUPT SEQ 0046 | 
1381 012146 000137 012214 JMP TABENG +2 scEXIT 
1 012152 000401 TABLES: 00401 
1 012154 000601 00401 
fs 
1386 012162 006002 06002 
012164 006002 06002 
012166 00 02004 
012170 00 02004 
9) 012172 0046900 04000 
1 012174 006000 04000 
$08 012176 004002 04002 
95 01 004002 04002 
$e 4 2 014400 14400 
96 01 006020 
97 012210 006020 06020 
98 012212 000000 TABENS: 00000 






















399 
400 

8 

19% : THIS ROUTINE PRE=SETS INTERRUPT FOR 

404 ,OMINUTE ,0 SECOND OF THE 

405 “FIRST DAY OF THE MONTH 

nf : J RAAAAEAARAEAREAERERERAEEEKEKERARRREKAEEREREKREEEEKEARAEEREREREEEKE 

(3) “TEST 20 TEST PRE-SET INTERRUPT 

(2 "RARE AEKAARAKAARAAAEAAEAAEREEKEEAAAAKRAAAAAEKAKEARHEAERAEKEAKREEEEKER 

(2) 01 000004 +5720 

(1) O01 737. 000001 001172 #1, STIMES ::DO 1 ITERATION 
1408 1 737 024106 177776 PRESET: . PSW 
ys 4 4 016106 PC, CNTLC 3:18 IT CONROL C? 
1411 01 7 013064 #TABLES RO 33 TER To he STARTING ADDRESS OF THE TABLE 
14i¢ 1 0131 ND ADDRESS OF TABLE 
1413 01 7 902 024226 0 INDIACATE PRESET INTRPT 
1414 01 737 (016 EGET. Mm BIT SET 

1415 01 777 011572 1$ “CLEAR CSR 

1416 7 777 011564 7:SET (SY) BIT IN CSR TO WRITE A YEAR VALUE 
1417 O1 777 ‘(01 011560 7:YEAR 1976 IN DEV REG 

1418 1 017040 

1419 01 

14 1 : ;BRANCH IF NOT 

1421 01 001122 

14 ; ’ : :READY 817 Bion’ SET PROBABLE 

14 7C ALUE MAY BE INVALID 
1424 01 PC, GETRDY GET READY 6 BIT SET 

1425 01 011522 2$: #0 acsR 

14 1 (RO)+, aCSR ;3GET MASK TO SET IN CSR 

14 1 (RO)+. aRGO =: VALUE IN MONTH + DAY REG 

14 1 PC, RDYCK1 

14 ’ FLAG.1 

14 1 Bs] : BRANCH IF READY BIT SEs 

1437 01 001122 @acSR, BADA READ CSR 

1432 01 > ERROR: READY BIT DION’T SET 


G 4 | 
MAIN. MACY11 30A(1052) 13-MAR-80 07:40 PAGE 3-8 SEQ 0045 































CZ7KWLA.P11 13-MAR~BO 07:39 120. «TEST «PRE-SET INTERRUPT i 
EC 
1433 “TONE OR BOTH VALUES OF MONTH 
1038 :+DAY MAY BE INVALID 
14 01 72 TST (RO)+ 
1237 019376 Lt 2 (ROD * :;ADJUST POINTER 
is Blass ye is ; 
SR 
1440 0126046 011450 38: MOV #0, ac >: WRITE HOUR+MIN 
W715 Ba Ses 011240 MOV #13473, ORG >SHOUR*+MIN IN REG2 
1442 0124 JSR PC, RDYCK1 
048 1 d é BEQ 4$ <IGET CSR STATUS 
BADA 3 
1446 012440 001122 TP ane :JERROR:ONE OR BOTH VALUES 
1447 012646 aceuaitinnd :30F HOUR+MINUTE MAY BE 
1449 33 
1450 012450 012777 011404 4$: SR, OR SET INTRPT 
1481 12456 012077 FOR JULIAN Day IF BITT IS SET 
;PRE-S RRUP 
1488 012462 012077 60 CHECK F FOR READY AND DE BIT 
1454 01 466 737 :71S "DE® “RDY" BIT SET? 
1455 012672 005737 BRANCH IF (DE AND RDY)BIT SETS 
1456 01247 1306 1122 ::GET CSR STATUS 
1457 0125 177 00 ::(DE) BIT FAIL TO SET 
es Bist Bee Aga oii 
1460 012512 000544 v6 
146) O1gs14 O1g777 Siig ot ;;PRE-SET INTERRUPT FOR HOUR*MIN 
106e Olgse8 Oler7? 0 SI CHECK FOR RDY AND DE BIT 
007 Glee Cae FLAG :21S (°DE' AND 'RDY') SET? 
es Sleete once sf ere St 
1466 012942 0177 001122 OF og 33 (DE) BIT FAIL TO SET 
1467 012550 104071 er (RO) + UST PONTER 
1s Biseae eae a. ADSL FOMTER, 
im? Blaeee Biorre mmme guiare By ppctho secs SR 
1472 O1 737 > eos BIT SET? 
178 8 ii seo 78 RAN If (DE -ADY. /MBIT) BIT SET 
;2GET 
149% O13e13 100026 pit gs ERRORS266 PA PROBABLE E CAUSE str et 
167% CSR 1D FIND EXACT CAUSE OF AN ERROR 
1679 sole GOR reo ie: ge EGET NEXT VALUE 
148) fe $i oe ie ::CLEAR INTERRUPT FLAG 
15 o13777 160 011220 MOV ; SNOW ENABLE INTERRUPT 
1485 012642 012737 000120 016030 MOV :MAtT FOR INTERRUPT 
ie Giese) Gaeree Glee fee , 
ip 01 006 BNE on 
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C7KWLA.P11 13-MAR-80 07:39 T20 TEST PRE-SET INTERRUPT SEQ 0046 | 
001122 MOV @acSR, BADA :3GET STATUS OF CSR 
ERROR+15 33 = INTERRUPT DIDN'T OCCUR ON 
CLR acsR 23 CLEAR INTERRUPT ENABLE 
8$: CLR FLAG.2 -C FLAG.2 
001126 MOV , BAD 
MOV (RO)+, GOOD 
001126 CMP GOOD, BAD 
BEQ BRANCH 
001122 MOV ACSR,  BADA gf STAM o OF CSR AT TIME 
1 ERROR+1 AD VALUE NOT MATCH 
WITH EXPECTED VALUE OF 
50 TH+DAY 
1503 012734 017737 011126 001126 9S: MOV @RG2. BAD > READ HOUR+MIN 
1504 012742 012737 000000 001124 MOV #00, GOOD ;sEXPECTED HOUR*MIN 
1505 012750 023737 001124 001126 CMP GOOD, BAD 
1506 012756 001404 BEQ 10$ >:GO0 TO * READ SECOND 
1507 012760 013737 026120 001122 MOV ACSR,  BADA »2GET CSR STATUS AT TIME OF INTERRUPT 
1508 012766 104001 ERROR+1 sREAD VALUE OF HOUR+MINUT 
1509 ;sDIDN'T MATCH WITH EXPECTED VALUE 
1510 012770 017737 011074 001126 10$: MOV @RG4, BAD SECOND 
1511 012776 O12? 7 000000 001124 MOV #0, GOOD > EXPECTED SECOND VALUE 
1318 1 3737 001126 001126 CMP GOOD, BAD :3ARE THEY EQUAL? 
151 13012 1404 BEQ 11$ *GET MORE VALUE 
1514 01 14 013737 024120 001122 MOV ACSR,  BADA ::GET CSR AT TIME OF INTERRUPT 
1515 013022 104001 ERROR+1 :READ VALUE NOT EQUAL TO EXPECTED 
1316 >: VALUE OF SEC 
1517 013024 004737 016106 11$: JSR PC, CNTLC sis IT CONTROL C? 
1318 4 920003 CMP RO R3 :1S IT END OF TABLE? 
1519 013032 g4ie BLT 12$ H IF NOT 
1 0 01 00 95 024226 CLR INTREG CLEAR INTERRUPT SWITCH 
1521 013040 012777 000000 011016 MOV #0, @RGO ::JUST TO CLEAR 'M’ BIT 
1286 150466 01 eS 004002 020160 MOV #LOGTST, SRTNAD s: 
13 13054 137 020060 JMP SEOP 
\3 : 1 000137 012332 12$: JMP ° aes 3:GET MORE VALUES 
1526 
1527 01 100002 TABLES: 100002 : MASK TO SET JULIAN DAY 
15 1 4 000074 ET FE 
15 1 g oars 7 7 JULIAN BIT SET 
15 1 10007 10007 ::MARCH=1 (INTRPT ENBLE) 
3 1 013074 001401 > -MARCH=1 
1 1307 100000 
: ; : ;SEP-30 
1 137 105201 ::0CT-1 (INTRPT ENABLE) 
1 13106 005001 7:0CT=1 
1539 01 119 100002 73 SET — DAY 
1560 01377 4 (-31 
1541 013714 33SET J ULIAN BIT 
1349 1 116 ] 7 72 JAN-1 VOINTRET ENABLE ) 
1348 137 01 > * 1 








I 4 
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CZ7KWLA.P11 1 -B0 07:39 T20 TEST PRE-SET INTERRUPT 

1545 0131 100000 100000 

128 015124 001034 001034 77 FEB-28 

1547 013126 000002 000002 

1548 0131 100074 100074 > SMARCH-1CINTRPT ENABLE) 
1549 013132 001401 001401 > MARCH-1 

1220 0731 000000 TABENS: 000000 szEND OF TABLES 

1226 -SBTTL SET TIME OF THE CLOCK 

155 

3 
1328 7;THIS ROUTINE SETS NEW TIME IN THE CLOCK 

1558 0135136 NEWTIM: 

(1) 0131 104401 013144 TYPE ,05$ 72 TYPE ASCIZ STRING 

(1) 015142 00044 64$ veceey 22 GET OVER THE ASCIZ 

$1 13256 Tae -ASCIZ <200>/TYPE ‘‘CR'’ AT THE END OF THE FOLLOWING LINE TO END ENTERING TIME VA 
1559 01 $954 104401 0913262 TYPE ,67$ sz TYPE ASCIZ STRING 

(1) 15260 000603 66$ :;GET OVER THE ASCIZ 

(1) :367$: .ASCIZ <200>/NEW/ 

(1) 4 70 663: 
1560 13270 1046401 013276 TYPE 69S sz TYPE ASCIZ STRING 

(1) 015274 000612 BR ::GET OVER THE ASCIZ 

(1) 2:69$: .ASCIZ <200>/YYYY,MO,DD,HH,MI/<200> 
1& 013322 68$ 
136¢ 1 2 0127 $ 024254 1$: ADIGIT, R2 ;;POINTER TO DIGIT TABLE 
1 1 0 4122 OC TNUM >: INITIALIZE OCTNUM 

1 1 7 4126 7:CLEAR COMMA COUNT 

1565 01 ; 7 4210 FLAG.1 3: CLEAR FLAG 

1 1 7 41 DIGCNT >Z INITIALIZE DIGIT COUNT 
1 1 5037 8 42 SOF SWT 7:CLEAR SOFTWARE SWITCH 
1 5037 4172 SWITCH 7; CLEAR SWITCH! 
1 1 0 23: 3 | 
1 1 (SP)+, RG 37 STORE CHARACTER 

1 1 7 0246250 R4, - ECHOB) re 

1 1 1 50 ‘ ECHO81 7;ECHO THE CHARACTER 

1 1 54 R4 7218S IT COMMA? 

1 1 7 “Se ey 37 BRANCH IF _ 

1 1 $ 41 DIGCNT, (R2)+ : DIGIT COUNTER ON THE STACK 
| 1 4126 DIGCNT 53 IN 

7 124 aad 7:KEEP TRACK OF COMMAS 

1 1 000025 3s: #25, RS 7721S CONTROL U? 

1 1 1645 NEWT IM eS BACK 

1 1 . 000015 #15, RS 3718S IT CR? 

1 1 4$ ; ;BRANCH IF NOT 

1 1 3 1 DIGCNT, (R2)+ 3:GET DIGIT COUNT 

1 1 41 DIGCNT 

7 1 316 #DIGEND ,R2 7218S IT END OF DIGIT TABLE? 
1 7 6$ 7;ALL VALUES ARE NOT ENTERED SO BR 
1 1 000004 024124 #6, COMMA oe 

7 1 6$ ; ;3BRANCH IF NOT ENOUGH COMMAS 
’ 1 000012 024244 #12. E CHOB zz: FOR LINE FEED 


MAIN. MACY11 30A(1052) 
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SPER SS SESES ESS 
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FRERASRURRSER SS 









38 


SsSSSSSSeSesesesesseeess 3c 






ee ee Ie ee ee ee ee ee ee ee ee a a ee 


610 
611 
o1¢ 5 
61 57 
614 
o1? 
e17 
618 10 
619 14 
0 1 
1 
é 
) 


ooo GOoCooo°oo 


—— aod Dd ee ee ceed ceed eed aed 





( 

(1) 6 

(1) 

(1) 74 
1623 74 
16 ¢ 00 
1859 
1 
1 
1 
1 1 
1 1 
1 1371 
1¢ 1371 
1 1371 
1 1 
1 1 
1 1 
7 1 
1640 0157 
1641 013742 

(1) 013746 





000422 
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OaeSSe 





000071 
024126 
024124 
024126 
000004 
024126 


024254 


013630 


013136 


000004 


024124 
000002 


010124 


4$: 


S$: 





n EC 
, DECOCT 
#177. RS 
“SChLE 
2$ 
RG, #60 
6% 
R4, #71 
6$ 
RG, (R2)+ 
DIGCNT 
COMMA 
5$ 
DIGCNT , #4 
2$ 
6$ 
#4, COMMA 


6$ 
DIGCNT, #2 
2$ 


>SDECIMAL TO OCTAL CONVERSION ROUTINE 
>;ROUTINE TO ENTER VALUES INTO 
::DEVICE REGISTER 





AND "LINE FEED" 


3 BRANCH 
:3MAX DIG FOR MONTH-DAY-HOUR-MIN 
Z3GET MORE DIGITS 


; THIS ROUTINE CLEARS DIGIT STACK ON AN ERROR 
6$: CMP 2. #DIGIT . 


7$: 


71$: 


SF: 


YERTN: 


BLT 
CLR 
BR 


TYPE 
BR 
-ASCIZ 


JMP 
RTS 


~ SBTTL 





MOV 
MOV 


oe 227 R2e 
bane bong oy 
mwm on 


~4 
“% 


~(R2) 
6$ 


71$ 


:: TYPE ERROR MESSAGE 
TICLEAR DIGIT STACK 


iN ig ASCIZ STRING 
T OVER THE ASCIZ 


0$ 
<200>/teeneeneeeaSYNTAX ERRORssaaweennnn/ 


NEWT IM 
Be | 


YEAR, ” 


R1 
#177700,R0 
A. 70077. R1 


Ry 

Ri, RO 
#BIT14, aCSR 
RO, @RGO 
a, RDYBIT 
FLAG.1 





3Z7EXIT FROM THE ROUTINE 


THE TIME VALUE IN THE DEVICE REGISTER 


77 YEAR VALUE 
;sALSO IN R1 

:: CLEAR ALL BUT #77 

CLEAR 1G BUT #7700 















SY) 
: UE IN THE bevite REGISTER 
‘ EHECK FOR utd BIT SET 

71S FLAG SET? 





— 


= 


C 


~ 


K 


EREF 


EeaStEER 


Nea 


oo 
SSERER IESE 


: 
— 
ed 


NNN 2S. 
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MACY11 30A(1052) 1 
pit 13maR-80 07:39 
013752 
4 54 010102 
762 
013764 010072 
013770 026134 
77% 177700 
12002 
014004 
01 
1 
4014 
1401 
40 024136 
14024 177700 
140 
01405 100000 
14 010020 
014044 017000 
014050 026210 
014054 
14056 010000 
14 
14 007766 
14074 017000 
14100 024210 
121 907752 
1aine 024140 
14120 177700 
14124 
14126 
141 
PAL 
141 
141 
1414 
1414 
14144 024142 
1615 
141 1 
141 
141 1 
141 10 
14176 
14176 007660 
16 
1421 007652 
14216 007640 
14222 


001122 


010022 


001122 


4$: 


024150 


007702 


001122 


024152 6$: 
7$: 


K 4 





BEQ 
MOV acsR, BADA 
ERROR+6 

CLR 

MOV TH, RO 
BIC #177700 ..RO 
ASL RO 

ASL RO 

ASL RO 

ASL RO 

ASL RO 

ASL RO 

ASL RO 

ASL RO 

MOV DAY RG 
BIC #177700,R4 
BIS 4 RO 
BIS #81115.aCSR 
MOV s @RGO 
JSR PC, RDYBIT 
TST : 

BEQ 

MOV @cSR, BADA 
ERROR+7 

BR 7$ 

CLR acsR 

JSR PC, RDYBIT 
TST FLAG. 1 

BNE 7$ 

MOV @RGO, OMONTH 
MOV HOUR, RO 
BIC #177700,RO 
ASL RO 

ASL RO © 

ASL RO 

ASL RO 

ASL . RO 
ae 

a? ee 

MOV MIN, 

BIS R64, RO 
BIS #81T15,aCSR 
MOV ; 

JSR PC, RDYBIT 
TST FLAG. 

BEQ 

MOV @acSR, BADA 
ERRGR+10 

BR 7$ 

MOV 32,  DHOUR 
CLR acsR 

RTS PC 


; BRANCH IF NO ERROR 

7zREAD CURRENT STATUS OF CSR 
73YEAR VALUE MAY BE INVALID 
>; CLEAR CSR 

>:MONTH VALUE 

77CLEAR ALL BUT #77 

>> SHIFT 

ee LEFT 

3s TIMES 


*:DAY VALUE IN R4 
>:CLEAR UNWANTED BITS 
INE MON 





:IS FLAG 

: ;BRANCH IF NO ERROR 
>:CURRENT STATUS OF CSR 
;2CLEAR CSR 

: CHECK. FOR READY BIT SET 
:I1S FLAG SET? 

::STORE MONTH+DAY VALUE 
*:CLEAR UNWANTED BITS 

i: LEFT 


a3 EIGHT 
sf TIMES 





SEQ 0049 


L 4 
MAIN. MACY11 ate 4 13-MAR-80 07:40 PAGE 3-13 
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CZKWLA.P11 : 39 THE TIME VALUE IN THE DEVICE REGISTER SEQ 0050 
193 
1697 -SBTTL ROUTINE TO CONVERT DECIMAL TO OCTAL 
1966 
1701 DECIMAL TO OCTAL CONVERSION ROUTINE 
170 ;STACK CONTAINS ASCII NUMBER 
1? zsPOINTER TABLE CONTAINS WEIGH 
1705 : 
ie 014226 014416 DECOCT: MOV #POINTR,.RS 7zR5 CONTAINS STARTING ADDRESS OF THE WEIGH TABL 
ins 014 i 024156 1$: CLR ;:CLEAR STR 
17 014 024160 CLR Pe AR NUM 
1710 014240 024222 CLR sz CLEAR FLAG 
1711 014264 024174 CLR 7:CLEAR CNT 
pay 14250 024174 CLR 7: CLEAR CNT 
171 14254 024122 ;: CLEAR OCTAL NUM 
1714 014260 024164 CLR COUNT : CLEAR COUNT 
1715 014 Ss 024174 MOV -(R2) ,CNT :;M0F DIGITS IN NUM 
ay 14 g CLR (R2) 7zCLEAR DIGIT STACK 
171 14 4 024164 23: MOV (R5)+,COUNT 7 DECIMAL WEIGHT 
1518 14 5 024160 MOV -(R2) ,NUM : DECIMAL NUM 
1715 145 CLR (R2) :: CLEAR FROM DIG STACK 
1720 0143C 000060 024160 SLB #60, ie 
1721 01431 000000 024160 CMP #0, ::IS IT ZERO 
17 ¢ 14320 BEQ 4$ 
17 14 024164 024156 3$: ADD COUNT, STR B- 
1726 14535 024160 DEC NUM 
1725 014 BNE 3$ 
17 14356 g 4156 024122 4$: ADD STR, § OCTNUM $3 
17 14344 41 CLR STR Ss 
17 14 oy 024176 DEC CNT 3% 
17 14 BNE 25 
1 14356 0 lS, MOV OCTNUM, -(SP) Ly. 
1 14 6c 0242 CMP o.  MBIGH 33 
17 14366 1 § BNE DECOCT 23 
1 14370 0Q1 4132 MOV (SP)+, YEAR 33 YEAR VALUE IN OCYAL 
1 14374 012637 tig MOV (SP)+, MONTH 7 MONTH IN OCTAL 
1 pees 12637 0241 MOV (SP)+, DAY : ;DAY IN OCTAL 
1 144 12637 4140 MOV (SP)+, HOUR 7;HOUR VALUE IN OCTAL 
1 14410 012637 4142 MOV (SP)+, MIN 7:MIN IN OCTAL 
1 14414 7 : RTS PC 72EXIT 
1 1441 1 POINTR: 1 
174 144 12 12 
174 144 144 144 
1% 14424 1750 1750 
ieee -SBITL READ TIME OF THE CLOCK 
i 
: in . ;THIS ROUTINE READ CURRENT TIME OF THE CLOCK 


7 : 
1750 014426 READ: 
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CZKWLA.P11 7 -B0 07:39 READ TIME OF THE CLOCK SEQ 0051 
(1) 014434 TYPE 05% sz TYPE ASCIZ STRING 
(1) 6R $ >;GET OVER THE ASCIZ 
(1) 72:65$: .ASCIZ <200>/ YR JD MO DA HR MI SE/ 
(1) 0146510 646$: 
1751 014510 TYPE -SCRLF 
1226 014514 MOV #BIT2,. aCSR ;;READ YEAR 
1753 6145 MOV @aRGO. RO >:READ VALUE IN RO 
1754 0145 MOV RO R4 s7ALSO IN R4& 
1755 0145 BIC #177700,R0 ::CLEAR ALL BUT #77 
fe 0145 BIC #160077 RG ;;CLEAR ALL BUT #17700 
1757 014540 ASR RS >:SHIFT RIGHT 
Ye Se rh ASR Rs >:SHIFT RIGHT 
175 14 BIS RS, RO 33IN OCTAL 
1760 016 010046 MOV RO, -(SP) >:NUMBER TO BE PRINTED ON STACK 
1761 0145 104405 TYPDS 
1706 01455 Orerrs 000002 007302 MOV 7zREAD JULIAN DAY 
176 Bie 017700 007300 MOV ;;READ VALUE IN RO 
1764 014564 01 MOV 33 IN R4 
1765 014 os 00 177700 BIC : CLEAR ALL BUT #77 
1798 0145 7 160077 BIC 3:CLEAR ALL BUT #17700 
176 bpets ASR :: SHIFT RIGHT 
1768 14600 ASR ::SHIFT RIGHT 
17 pt BIS 32IN OCTAL 
1770 O1 MOV RO, ~ (SP) : NUMBER ON STACK 
1771 1 TYPDS 
fae pret 007246 CLR ::CLEAR CSR 
177 14614 007244 MOV RO 3;ZREAD MONTH+DAY 
1774 1 MOV RO R1 a8 IN R1 
1775 01 170077 BIC #170077,RO ::CLR ALL BUT 7700 
1778 14 ASR RO SHIFT 
177 1 ASR RO RIGHT 
1708 178 ASR RO 3 EIGHT 
17 14 ASR RO 23 TIMES 
1 1464 ASR RO i: 
17 ye ri ASR RO Pe 
1 1 ASR RO F2 
1 1 MOV RO, -(SP) 3Z0CTAL NUM ON STACK 
1785 0146 TYPDS : 
1 1465 177700 BIC 3:CLEAR ALL BUT #77 
1 1 MOV ;;0CTAL NUM ON STACK 
1 1 TYPDS 
1 1 007174 CLR ze 
1 1 007174 MOV : HOUR VALUE 
179 1 MOV :7FOR MINUTE 
129 14674 160377 BIC #160377,RO 77 CLEAR UNWANTED BITS 
1 14 ASR RO s3 T 
1794 O14 ASR RO 2s RIGHT 
1795 014 ASR RO :% EIGHT 
fa. 14 ASR RO 33 TIMES 
179 14 g ASR RO 23 
1798 01471 ASR RO ss 
1799 014774 ASR RO :; 
1 1471 ASR RO is 
1801 147 MOV RO, -(SP) 7Z0CTAL NUM ON STACK 
1 014 TYPDS 
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177700 


007126 
017700 


014762 


015554 


READ TIME OF THE CLOCK 
BIC #177700,R1 
MOV R 


MOV 
TYPDS 
MOV 
BIC 
MOV 
TYPDS 
RTS 





>0CT ON STACK 


;sREAD SECOND 
> :CLEAR ALL BUT #77 
>7O0CTAL NUM ON STACK 


“THIS ROUTINE TESTS THE ACCURACY OF CLOCK. 


7 IF THERE IS 
MESSAGE 





A. CLK: 
,05$ 
64$ 
: ;65$: <200>/L-CLK 
64$: 
1$: 
a(SP)+, R4 
#116, RG 
#131, RS 
2$ 
#0, R4 
1$ 
23: PC, L.CLK 
7$ ) 
3$: | 
a ,67$ 
13973 -ASCIZ <200>/P-CLOCK i5 
4$: RDLIN 3 
MOV ais). RS 
CMP #116, RS 
BEQ 
BEQ 5$ 
CMP #0, R4 
BNE 4$ 
5$: JSR PC, P.CLK 
BR 7$ 
6$ 
TYPE ,09$ 
20 
bis: 
JSR PC, NO.CLK 
7$: RTS PC 


AN ERROR, IT WILL PRINT ERROR 


cor ASCIZ STRING 
ae OVER THE ASCIZ 


7231S THERE ANY CHAR 

+GET CHARACTER 
21S IT ‘N*? 

SIS IT "vy? 


H IF 
Fi IT ‘CR*? 


SSCOMPARE THE CLK WITH L. CLK 
:: JUMP TO RETURN 








Bats, ASCIZ STRING 
Ps ait THE ASCIZ 


4a at IN R4 


"ill 
:360 GET MANUALLY TIME BASE 


"CR? 


EP. CLK AS _TIME BASE 
: BRANCH TO RETURN 





sz TYPE ASCIZ STRING 


THE ASCIZ 


BR ;GET OVER 
9$: .ASCIZ <200>/*TYPE TWO CHARACTERS AT 60 SECONDS APART’ / 


se 
| ad 


7 RETURN 


SEQ 0052 | 


| 
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READ TIME OF THE CLOCK SEQ 0055 


7 THIS ROUTINE COMPARES KW11C CLOCK WITH 
7KW11-P CLOCK FOR ACCURACY OF KW11-C CLOCK. 
311 PRINTS HARD ERROR IF CRYSTAL OSCILLATOR 











“NOT ACCURATE. 
P.CLK: MOV :zSTORE RO 

MOV $3 

MOV 

MOV ; =POINTER TO P. TABLE 

MOV ER IN 
1$: MOV 33SET BIT READ TIME INTERVAL 

MOV R EQUIV TO 

MOV 

MOV 
23: BIT 

BEQ :2NO:LOOP AROUND 

ay : READ DELTAT REGS 

BNE > :BRANCH IF NOT ZERO 

MOV ::GET DELAT T COUNTER 
3s: oF : COMPARE WITH EXPECTED 

ay ® TEND OF TABLE? 

>:HARD ERROR: CRYSTAL SEEMS TO BE 

4s: “a THE CLOCK PASS THE RELATIVE ACCURACY TEST 
P.CNT: 
P. TAB: 
P.END: 





THIS ROUTINE COMPARES kwW11-C CLOCK 
{WITH L-CLOCK FOR ACC % 
AN ERROR IF CRYSTAL OSCILLATOR 








:1T PRINTS AN 
21S NOT ACCURATE. 
i. CLK: RO, -(SP) 3 
R2, ~( SP) +3 
Ré, -(SP) 
a. TAB? “Re : :POINTER TO THE TABLE 
1$: #10 acsR 3 SET BIT TO READ DELTA f INTVL 
#47777. T COUNTER IN DELTA T 
LKS >=CLEAR STATUS OF L.CLK 
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1906 0154616 000200 177546 2%: SiT WBiT7. LKS szFLAG SET? 
1905 015426 BE 2s > 2NO:8R 
Ls. 0154 017700 006436 arcs, RO :READ DELTA T COUNTER 
1 0154 005302 R2 > DEC 
1 0154 001 1$ ::BR IF NOT ZERO 
1 0154 1 015532 RO L.CNT >:GET DELTA-T 
1910 01544 022 7 000062 024242 38: #62, HZ > 
1911 0154 1410 4$ >:BR IF SOHZ 
at 015452 023724 015532 L.CNT, (RG)+ >; COMPARE WITH TABLE FOR 60H7Z 
191 0154 1417 6$ scsEXIT IF EQUAL 
1914 01 27 015542 RS, #L.END1 szIS IT END OF TAB? 
1915 0154646 7 33 : :NO:BR 
1318 012798 1040 ERROR+33 7; CRYSTAL OSCILLATOR NOT ACCURATE 
191 B12 14 7$ 7cExX 
1315 15472 012706 015544 4$: MOV #L.TABZ2.RG 7;;PONTER TO THE TABLE 
191 Erte bs fr: 015532 S$: L.CNT, (R&)+ as 
9 O 2a0e 1405 BEQ 6$ EXIT 
921 AEE: 0 ag? 015552 R4, #L.END2 7zEND OF TABLE? 
9 ¢ 15510 ¢ BLE 5$ 3 7NO: 
y 15512 10603 ERROR+33 ;zO0SCILLATOR NOT ACCURATE 
924 015514 02 BR 7$ 73EX 
925 1 38 104401 027353 6$: TYPE -PASMSG 33 THE CLOCK PASSED THE RELATIVE ACCURACY TEST 
356 1 é 4 604 7$: MOV (SP)+, R4 : :RESTORE 
9 1 4 1 op8 MOV (SP)+, R2 os 
9 1 : 0 (SP)+, RO <a 
g 15 207 RTS FC 
?) 015532 L.CNT: 00 
y 133 5 L.TAB1: 7735 
9 155 77 7736 
1554 77 7734. 
138 7777 L.END1: 177777 
1554 7727 L.TAB2: ee 
Pee tes 
15552 1 555$ L.END2: 177777 


STHIS ROUTINE IS USED TO GET SOME BASE 


NOE WO OW NO Rte 





el a ee ee a ee lee ed et ee ee a ed dd ed dd — 3 SS — SS = ww 3 = 
GSZLLELLELELLILS OLS 


;FOR TIME.CHARACTERS TYPED MUST BE 
VERY ACCURATE AS IT IS USED TO DETERMINE 
; THE ACCURACY OF CLOCK 
12 54 20 7 NO.CLK: CLR 3zTO STORE 2MIN INTVL CONSTANT 
105777 1$: TSTB 37:1S THERE A CHAR? 
1 1 ats ::NO:WAIT FOR A CHAR 
1 11773 oe 
15574 5077 53 
1 12777 ::GET TIME CONST FOR 2 SEC 
1 1 307 3ZzECHO THE 
1561 23: 2:18 BIT SET IN CSR? 
5 Q1 4 : 7NO:BR 
1 ::CLEAR BIT SET 
1 72:50 MANY TIMES 2 SEC IN/ERVAL 
828 1 3$: 7 ZANOTHER CHAR? 
959 01 : :NO:BR 
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-MAIN, all Ta ae 
CZKWLA.P11 

1960 0156460 24 015726 

1961 Ot 2ee0 165274 024250 

1o08 15654 024250 

1965 015660 01571 

1964 01 01572 

1965 0156 

He 01567 015720 

196 8125/8 

\oce 15700 

is 015702 

1970 015704 027353 

1971 015710 

197 

19 015712 

1974 015714 

1975 913538 

1976 0157 S 

1977 0157 

1358 015724 

i 

ie 

ie 

19 

1985 

19 

198 

19 

2 

199) 

16 

199 

1995 13 10 Oe § 

1 a 735 016024 

fs 157 3039 016026 

1 15740 01 024054 

ues mcece 
15750 001023 
Hemi: 
1 3087 016024 
130 ? 016024 003720 
1577 2087 16024 
15776 005237 016026 





8 
READ TIME OF THE CLOCK 





MOV . - CON >zREAD TIME INT REG 
MOV a$TkKB8, ECHCS1 > GET CHAR 
TYPE EC 
;zADDRESS OF TABLE 
4S: = = COMP WITH NUM IN TAB 
+ 73 THE CLOCK PASSED THE RELATIVE ACCURACY TEST 
TAB: 





35 
TAB.EN: 177777 
.CNT: 00 


;THIS IS TABLE DRIVEN ROUTINE,IT TESTS INVALID VALUE OF MONTH*+DAY 


“THIS ROUTINE WAITS FOR AN INTERRUPT 


begs &@e Gs Bes Se 


;1T ALSO PRINTS AN ERROR MESSAGE IF NOT INTERRUPTED 
iNTRTN: MOV R2, ~(SP) 
CLR CONT ::CLEAR LOCATION 
CLR CONT1 >: CLEAR LOCATION 
1$: MOV CONST .R2 77 TIME CONSTAN 
TST FLAG. 2 2348 INTERRUPT "OCCURED? 
BNE >: YES, EXIT 
2$: DEC R2 ; ;DECREMENT COUNT 
BNE 2s : “BRANCH IF NOT ZERO 
CONT , #3720 $f DECIMAL 
i$ > BRANCH IF NOT EQUAL 





CONT $3 
CONTT 7 ANOTHER COUNTE” 


| 


SEQ 0055 | 


 — | 


VANVSSSSSSSAE & 
WOOF VYOALRWUPR 


e 5 | 


_pHACYTT 30A(1052)_1$-MAR-B0 07:40 PAGE 4 : 
pit 134MAR~BO 07:39 READ TIME OF THE CLOCK SEQ 0056 
1 3737 016026 016030 CMP CONTI, TIMES ;:DESIRE TIME EXPIRED? 
816018 961355 me | iS 
:: INTERRUPT FAIL TO OCCUR 
16012 017737 006064 024120 MOV @CSR, ACR SISTATUS OF CSR 
12602 4$: MOV (SP)+, R2 SIRECOVER R2 
160 RTS = PL 
S1eHGs 99308 CONT: 0 
0160 CONTI: 0 
0160 TIMES: 00 


-MAIN. MACY11 30A(1052) 135-MAR-80 07:40 PAGE 5 
CZKWLA.P11 135-MAR-80 07:39 READ TIME OF THE CLOCK SEQ 0057 


-THIS 1S WAIT ROUTINE 


ee 
NOW 




















20 016032 010246 WAIT: MOV R2, ~(SP) 
016034 005037 016102 CLR CONT2 
3 016060 013702 024054 1$: MOV CONST, R2 ::GET CONSTANT FOR 0.5MSECOND 
20 ¢ 016044 005302 23: DEC Re > DECREMENT CONST 
20 016046 001376 BNE 2$ >:LOOP BACK TILL ZERO 
016050 $35 016102 INC CONT2 2s 
§ 016054 023727 016102 003720 CMP CONT2, #3720 > EQUIVALENT TO 2000 
01 1 BNE 1$ >:GO BACK IF NOT 1 SEC 
01 016102 CLR CONT2 33 
38 016070 005 7 016104 DEC CONT3 3 
39 016074 001361 BNE 1 >;LOOP BACK IF TIME QUANTOM NOT EXPIRED 
2040 016076 012602 MOV (SP)+, R2 = :RECOVER R2 
2041 916100 207 aoe RTS PC ::EXIT FROM SUB ROUTINE 
$ 016104 000000 CONT 
044 
a2 ; 
he 016106 105777 163032 CNILC: TSTB ::1S THERE A CHARACTER? 
2 : 01611 100016 BPL :zNO: DON'T WAIT 
; 16114 117746 163026 MOVB = a$T -(SP) -:STORE CHAR ON STACK 
161 048716 177 BIC -:STRIP OFF THE ASCII 
16126 02 a CMP ::1S IT CONT 
161 1 BNE Z2NO: T 
16132 5 TST es 
161 137 003530 JMP RESTRT 
16140 726 000007 1$ CMP #7, (SP)+ ::1S IT CONTROL G? 
ib opr 1001 BNE 2$ :;NO:BR 
1 166 1044 GTSWR 
01615 20 2$ RTS PC 
161 : 10246 DELAY: MOV Re. -(SP) 7 SAVE 
161 1 MOV R53, ~(SP) ZS; SAVE R 
161 1 990004 MOV ts Se. zf 
065 0161 1 4054 1$: MOV CONST, R2 7:GET CONSTANT 
066 0161 2$: DEC R2 >: COUNT DOWN 
40 } GN : BRANCH IF NOT ZERO YET 
s rm ee 
509 OleI 9 001 BNE «1S 3 
070 016176 01 MOV (SP)+, R3 «sg RESTORE REGISTER 
40 1 mov >i, R2 > :RESTORE 
‘ e 
078 ;THIS ROUTINE WAITS FOR A SECOND 
075 01 13777 016224 005656 WAIT2: MOV TENT, @RGé SET COUNTER TO WAIT 
3076 1 777 «(04 005642 18: BIT #BiTi4, acsR zz1S BIT14 SET? 
077 01622 1774 BEQ i$ > :NO:BR 
pe 4 § 7 RTS PC 7 DESIRED TIME EXPIRED RETURN 
site 10224 


TCNT: 0000 
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032777 
901414 








91790 
040909 
917008 


100000 





i 
1 
210 


100000 


003720 


000005 


005530 
005522 


5476 
5472 


005450 
005444 


005422 
005416 


005374 
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READ TIME OF THE CLOCK 


> THIS ROUTINE WAITS FOR HOLD BIT TO RESET IN TIME(3 _ 
[THIS ROUTINE GETS CONTROL FROM MAIN ROUTINE AND EXITS 
; IN MAIN ROUTINE IN ANY CASE 


walt: 


1$: 


23: 


3$: 


CONTS: 
CONTS: 





- (SP) 


aCSR 
R2 


#3720 


#5 
R2 


21S (HOLD BIT) RESET? 
URN IF SET 





ONSTANT FOR 0.5SEC 
: IDECREMENT CONST UNTIL 0.5 SECOND 


> GET 
: EQUI 


> BRANCH 
;31NIT 


Ff I 


; s=BRANCH 
; ; ;RECOVER R2 


COUNTER FOR NUMBR OF 0.5 SEC 
VALENT TO 1 SECOND 


H IF SET 
ae COUNTER 
T NO OF SEC 
T 5 SECOND _YET? 
H IF NOT 3 SEC YET? 


“THIS ROUTINE GETS CONTROL WHEN READY bee oo TO SET. 


IN THIS ROUTINE VALID VALUES OF MONTH 


; HOUR +m NUTE IS SET WHICH SUPPOSE TO SET READY BIT 


IN CSR. 
:1F READY BIT FAILS TO SET PROGRAM HAL 


TS. 
IF READY BIT SETS PROGRAM GOES TO CALLER. 
WB1T13, acsr 
GET 


ée TRDY: 


GET1: 


GET2: 


BIT 
BEG 





GET4 | 
#81715+B1T14,aCSR 
#17073, aRGO 


#0, 
PC, 
FLA 


@RGO 
RDYBIT 


GET 
#BIT15, acSR 


21S ° 


M’ BIT SET? 


; ;BRANCH IF CLEAR 


SET 


READY BIT 
sCHECK FOR aa BIT SET 


SS TRY 
Ah 
73SET 





a ‘Way TO SET RDYBIT 
IF READY BIT IS SET 
BIT15 AND BIT14 TO GET RDYBIT SET 


7ESET Y 
: CHECK FOR utd BIT SET 


SSEXIT IF 


77 SET 





SET 
VALID YEAR 





; CHECK FOR READY BIT SET 
715 FLAG SET? 





; ;BRANCH_IF READY BIT NOT SET 


7 SET 
T 


; ; BRANCH 
32 SET 


Ey I- 
> CHECK 
71S FLAG 


(ST) TIME 
JANUARY IN RGO 
My Fail BIT SET 
TO HALT IF RDY DIDN'T SET 
TIME (BIT15) IN CSR TO SET 








SEQ 0058 
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135-MAR-80 07:39 
012777 
006737 017000 
005737 024210 
001405 
017737 005350 
104002 
000000 
000207 
004737 016152 
010437 016554 
017737 005332 
017737 005316 
000207 
000000 
000000 
000000 
000000 
903000 005276 
012777 
012737 077777 
904757 017206 
2777 100000 
1276 
086 024210 
7 


024210 
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: READ 


005372 


001122 


005272 
024052 


005250 


005232 


005222 
092085 
005176 
005160 
005152 


024052 
005724 


GETS: 


GETS: 


° 
id 


GETTIM: 


>THIS ROUTINE WILL CAUSE 
>IT WILL PRINT ERROR IF T 
:BIT pioner SET IN CSR WHILE SETTING PRESET 


INIPRE : 


: 00 
: 00 
: 00 
: OO 


Ine 


CLR 
MOV 


MOV 
JSR 
BI 

BEQ 











TIME OF THE CLOCK 


#0. 2 

a“? RDYBIT 

FLAG.1 

GETS 

@aCSR,  BADA 

PC 

a? DELAY 

RG, PRESEC 
G4, SECOND 

— A 


acsR 

#0 aRGO 
#77777, COUNTR 
PC, DMT 
aes 3 5,acsSr 
FLAG.1 


1$ 
#81713, aCsR 


338205 arc2 
W797 CONTR 
DMT 


#81115.aCSR 





712 

aad 

$ 

acs 

#77777, COUNTR 
#BiT15.aCSR 
-12 

FLAG. 1 





"a" BIT T 
"mM OR/AND (DIE) 


> HOUR; MINUTE 

770 HOUR+O MINUTE 

>CHECK FOR READY BIT SET 

sIS FLAG SET? 

: ;BRANCH TO RE 

>:GET STATUS OF CSR 

77HARD ERROR: READY BIT FAIL TO SET 
7 RETURN TO CALLER 


>¢WAIT FOR A WHILE 

> sPREVIOUS SECOND 

>sREAD CURRENT VALUE OF SECOND 
:sREAD STATUS OF CSR 


:7CLEAR CSR 


3 PRESET MONTH+DAY 
3:DELAY LOOP SETUP 
7:DEAD MAN TIMER ROUTINE 
3218S DE BIT SET 

77: TRY AGAIN 

3218S (DE) BIT SET IN CSR? 
3; ;BRANC 

:z1S ‘MM’ BIT SET IN CSR? 
+ H IF SET 





> BRANCH IF (DE) BIT NOT SET 
3318 *A* BIT SET? 
2 EXIT a SET 





7: TRY AGAIN 
7:18 (DE) SET? 


] 


) 
SEQ 0059) 
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C7KWLA.P11 1 






ee ee ee ee eet ned etd ed 
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017 

017 

Af '4 

17 

17 

17026 

17 

017 

17 10446 
ed Bie 
17 7 
1705 12737 
17 017746 
1 $f] 
17 ? 7 
1707 14 
10078 5357 
17 1 
171 > 
171 1361 
ae Bias 
17116 507 


171 10446 
17192 01 
4 1 
191 12r37 
17142 01 
171 

171 

171 1319 
171 533 
177 1 
171 5 
171 1361 
017172 012737 


(1052) 
~80 07 


020000 
005100 


000000 


097977 
000200 


024052 
000001 


5 
Ge42t 
07777 
004776 
057577 
120200 


024052 


024210. 


tate 
y f 

714 
077577 
100200 


024052 


000001 


005106 
001122 


005064 


024052 
005042 


024210 


024052 


024052 


024210 


oe 07: - mA PAGE 5-3 


TIME OF THE 








CLOCK 


BNE 1$ 
BIT #831T13, aCSR 
BNE 2s 

1$: MOV @CSR,. BADA 
ERROR+ 30 


HALT 
23: 





MOV 
RTS 


*- 
nd 
* 


*DEAD MAN TIMER 


RDYBIT: CLR 
MOV 
1$: BIT 
BNE 
DEC 
BNE 
MOV 
23: RTS 
RDYCK1: MOV 
MOV 
CLR 
3$: MOV 
1$: MOV 





23: 








eCSR 


#8] aCSR 

2$ 

COUNTR 

1$ 

vi, FLAG.17 

PC 

RG, -(SP) 

ig : R4 

977777 .COUNTR 
~ (SP) 








COUNTR 
1$ 
RS 





3S. 
FLAG.1 


(SP)+, 
PC 


RS 


7577, (SP) 
#O1T15¢B1T13+B117. (SP)+ 


SEQ 0060 | 
>:BRANCH IF NOT 
szIS *M* BIT SET? 
> BRANCH IF T 
>:READ STATUS OF CSR 
>:"M'BIT OR (DE) BIT FAIL TO SET 
= CLEAR CSR 

“EXIT 


SET UP LOOP COUNTER 
is gl “ae IN CSR? 


HIF SE 
: :DECREMENT LOOP COUNTER 


Y AGA 
>sSET FLAG :READY BIT NOT SET 
EXIT 





seSTORE R4 


: WAIT MORE 


THIS i WAITS FOR READY BIT TO SET 
FLAG.1 IS SET TO 


IF Seitare BIT 











CLR 





BIC 


BEQ 
DEC 


DEC 














DIDN 












COUNTR 
2s 


R3 
1$ 
#1, 


"Er SET. 
ah READY BIT FAIL He SET. 
MOV R4 -(SP) 


#77577, RG 
#91T15+B117, 


FLAG.1 


Rey 


MAIN 


5 
7 












. ee 
— 


mr 
& 
Ww 


CI SOUR WOO NOM RW OOO Naa 


7 


NNNNNN s 
WIS S 
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Oooooo 
anh wad ead end end ead 


NISENSENSDRVOSE 
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+7 ce ne et aie 
SMALLS O 


~SYNY S 
att 





ah» 


.’. , 
sy et Proc 
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02 
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017200 012603 
17202 01 





207 
say 
shah 
062716 
000207 





7 
85 
3 
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07:39 READ TIME OF THE CLOCK 


024210 
024052 


000001 
000010 


024064 


000000 
gone 
8 


024072 


024072 





3$: 


024210 


DC4: 


DC5: 


004472 














rr rere 


(SP)+, 
(SP)+, 
PC 


Ce. 


-(SP) 





333 

*s &8& © © @€ & One 

- S 
4 


NAR RRS 


~(SP) 


s RESTORE R3 

> RESTORE R<& 
7 zSAVE RO 
2: SAVE R2 
72 SAVE RG 
7 7SAVE R 


>; ENTER VALUES AFTER(=) IS TYPED'' 


DEVICE ADDRESS ( 


>: STARTING ADDRESS OF DEVICE 






>: TYPE’")="" 
;:GET OCTAL NUMBER 
;>;GET NUMBER FROM TOP OF THE STACK 


21S 17 "CR"? 
:TCLEAR LAST THREE BITS 
73 CLEAR UNWANTED BITS 


23 TYPE PC INTRPT VECTOR( )= 


:7READ VECTOR VALUE 
2215S 1T ‘CR’? 

72GET PREVIOUS ADDRESS 
: NEXT ADDRESS 


SEQ 0061 


oe 






























7 sREAD TIME INTERVAL 





MAIN. MACY11 (1052) 13-MAR-80 07:40 PAGE 5-5 
€7KWLA.P11. 1 -80 07:39 READ TIME OF THE CLOCK SEQ 0062 
017616 000004 004454 MOV a, aPsv1 
017624 024072 MOV R4. PCVO >NEW ADDRESS 
0174 01 017954 004434 mov #INTRPT @PCVO :LINCRERENT INTERRUPT ROUT INE 
ie fie es RA. BE ees 
$39 017454 01 024076 MOV RL. PCy1 3 
017460 017662 MOV #1 IMRTN,aPCV1 :: 
017466 704 000002 ADD #2. R4 2: 
0174 024100 MOV R4. PSV1 33 
4. 017476 000340 004374 MOV 7, #£@PSvi ss 
BI ose mo os nemest ent 20 
05 O1 5850 013704 024102 MOV BRLV, RG 3: : 
506 017514 010446 MOV RG, ~(SP) 3 
97 017516 104402 TYPOC 
508 1% 104401 TYPE 
1 017 027350 D 
10 173 4 106412 RDOCT 
11 0175 01 oe MOV (SP)+, RG =5 
312 175 04 000000 CMP #0 RG *:IS IT "CR'? 
1 175 g BGE DC7 
314 017 1 024102 MOV RL, BRLV i 
15 017 12605 DC7: MOV (SP)+, RS : :RESTORE REGISTERS 
16 O17 1 MOV (SP)+, RG a3 
ib Ha 8 an ee : 
+, ee 
19 01755 20 RTS 
eC sDATE + TI 
}¢ 17554 INTRPT: ; sRETURN ADDRESS 
¢ 17 7:STORE CONTENT OF CSR 
St 7 :3CLEAR CSR (DISABLE INTERRUPT) 
i: 17 5$: 
17 024120 18: ED? 
se 5 Bg ED INTRPT AS (DIE) NOT SET 
5 024120 28: 4 (DE) S1y SET? 
1 6 
)¢ 024226 3$ 
; 0 024226 
% fine “ 
S ’ : 
9 017660 Of 
-TIME INTERVAL INTERRUPT ROUTINE 
7662 TIMRTN: MOV (SP),  TEMP2 
ws CLR ’ 
? 





on ned eed ed old 





MOV 
CLR 


eal 
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MAIN. MACYI1 30A(1052) _13-MAR-80 07:40 PAGE 5-6 | 
CZKWLA.P11 1 -80 07:39 READ TIME OF THE CLOCK SEQ 0063 
7 004150 Z:CLEAR INTRPT ENABLE FLAG | 
49 024120 1S: ACSR >: TIME INTRPT WAS ENABLED? 
51 01 7 UNEXPECTED INTERRUPT 
32 040000 024120 28: ACSR ::(TD BIT SET IN CSR 
54 > ;BRANCH IF YES 
55 0177 000005 024226 3S: INTREG ;3FLAG FOR TIMEINTERVAL INTRP 
3$ >: UNEXPECTED INTERRUPT 
28 024212 4S: ::FLAG TO INDICATE INTERRUPTED 
; ! 
: TRAP ROUTINE 
TRAP4: MOV (SP)+, RO :zPOP STACK INTO RO 
1777 TYPE 1$ 
050130 1$: -ASCIZ <200>/UNEXPECTED TRAP TO VECTOR 4 FROM ../ 
0 0 
052103 
045040 
027056 
Bg EVEN 
004 2$: MOV RO, -(SP) ::SAVE RO FOR TYPOUT 
ny 1044 ae 3:GO TYPE OCTAL ASCII 
ks 54 000137 001712 JMP START 
oe : 
376 .SBTTL END OF PASS ROUTINE 
(3 ; J easacossaunumbansdn shenstiantenerinecesarenenessnanenaneneeqene 
(1) :* THE PASS NUMBER (SASS) 
(1) eT" PASS #XXXXX'" (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) :eIF THERES, A MONITOR GO 10 IT 
(1 :*]F THERE ISN*T JUMP TO START 
tf 
(1) 1102 STSTNM :7ZERO THE TEST NUMBER 
(1) 11 STIMES :3ZERO_ THE NUMBER OF ITERATIONS 
(1) 1214 SPASS 7 INCREMENT THE PASS NUMBER 
(1) 7 001214 #100000, SPASS 3 [DON'T ALLOW A NEG. NUMBER 
(1) (PC)+ : LOOP? 
(1) SDOAGN 3c YES 
(1) MOV (PC) +, a(PC)+ zzRESTORE COUNTER 
tg SENDCT: Fis ed 1 
(1) 020165 TYPE §§.SENDMG zz TYPE “END PASS #”’ 





-MAIN, MACYI1 (1052) _135-MAR-80 aie * PAGE 5-7 






































CZ7KWLA.P11 1 -B0 07:39 ND OF PASS ROUTINE SEQ 0064 
(2) 4 0137646 001214 MOV SPASS .-(SP) >; SAVE SPASS FOR TYPEOUT 
(2) 106405 TYPDS G0 TYPE=-DECIMAL ASCII WITH SIGN 
(1) 104401 020162 TYPE ,SENULL : HARACTER 
(1) 01 000042 $GET42: MOV af62,R0 
(1) 42 001405 BEQ SDOAGN 
(1) 44 RESET 
(1) 1 JSR PC, (RO) 
(1) 1 NOP 
(1) 15 NOP 
(1) 020154 NOP 
(1) 020156 SDOAGN: 
(1) 1 JMP a(PC)+ 
(1) 1 $R : WORD < pea | 
(1) 1 377 : BYTE gsNULL CHARACTER STRING 
(1) 1g 015 042412 NDMG: .ASCIZ <iS><io>sEw PASS # 
(1) 8 1 050040 051501 
(1) 000063 
77 
+9 
7 -NLIST MC,MD.CND 
“a8 -SBSTTL TYPE ROUTINE 
(2) 23 fF SEAAAAKAAAAEAEEEEERAEEEERERERERARAEKERAEREKAKREERREEARKEERREAEEREREEE 
(1) ;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 yt 
(1) 7*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) 3; *NOTE1: SNULL CONTAINS 7 BE USED AS THE FILLER CHARACTER. 
(1) : SFILLS CONTAINS NUMBER OF FILLER CHARACTERS REQUIRED. 
(3 ° SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
(1) :*CALL: 
(1) set) USING A TRAP INSTRUCTION 
648 i on TYPE -MESADR 7ZMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(1) 2 TYPE 
(1) 3;* ME SADR 
(Y} - 
(1) 001157 STYPE: TSTB  S$TPFLG 315 THERE A TERMINAL? 
(1) BPL 1§ 3;BR IF YES 
(1) HAL T :;HALT HERE IF NO TERMINAL 
(1) BR 3 LEAVE 
(1) | 1$: MOV | coo RO 
(1) ial MOV 373GET eres 9 dl ASCIZ STRING 
tk ee ENE +: cK FOR APT CONSOLE 
(1) 000100 001227 BITB zs Fad 
(1) BEQ 33 
(1) 38 MOV eS 
(1) 7 JSR $3 
(1) 61$: .WORD 77ME 
$f 000040 001227 62$: site 2% 
(1) 2$: MOVB (RO) +,-(SP) : R TO BE TYPED ONTO STACK 
(1) BNE 4$ $ F IT ISN’T THE TERMINATOR 
(1) TST (SP)+ 2 ERMINATOR POP IT OFF THE STACK 
(1) 60$: MOV (SP)+_ RO z 























-MAIN. MACY11 | tet 13-MAR-80 07:40 PAGE 5-8 i 
CZ7KWLA.P11 1 -B0 07:39 TYPE ROUTINE SEQ 0065 | 
(1) 7 000002 3$: - #2, (SP) > ADJUST RETURN PC 
000011 4$: oo WHT , (SP) > BRANCH IF <HT> 
000200 = ge F (SP) > BRANCH IF NOT <CRLF> 
TST (SP)+ ::POP <CR><LF> EQUIV 
TYPE sz TYPE A CR AND LF 
SCRLF 
CLRB SCHARCNT ;zCle 
BR 2$ os 
5$: JSR Pc STYPEC 3:GO0 TYPE THIS CHARACTER 
6$: CMPB SFILLC,(SP)+ s:IS IT TIME FOR FILLER CHARS.? 
BNE Fe GO GET NEXT CHAR. 
MOV SNULL .- (SP) scGé OF FILLER CHARS. NEEDED 
sé NULL CHAR. 
7$: DECB 1(SP) =3 NULL NEED TO BE TYPED? 
BLT 6$ 33 NO--GO POP THE NULL OFF OF STACK 
JSR PC ,STYPEC 
DECB SCHARCNT 





my pe 
On 
$ 





:HORIZONTAL TAB PROCESSOR 


Godei4 8$: MOVB 
146 9S: JSR 
7 020460 BITB 


1 


_= 
Nm 





2 sREPLACE TAB WITH SPACE 
3s TYPE A SPACE 
yt ay NOT AT 


Soe 








71 
Ay 
2 BNE 33 

; 6 TST ::POP SPACE OFF STACK 

724 BR :;GET NEXT CHARAC 
rr 160530 STYPEC: TSTB 7:WAIT UNTIL PRINTER IS READY 
11667 160522 ::LOAD CHAR TO BE TYPED INTO DATA REG. 
1 58 Bo0es § 080003 31S CHARACTER A CARRIAGE RETURN? 

020460 i 3 YES=-CLEAR CHARACTER COUNT 


000012 000002 1$: 31S CHARACTER A LINE FEED? 
H_IF YES 









SCHARCNT:.WORD O 
STYPEX: RTS PC 





a i i le a a i a a a a a a a rr a a a a a a a a a a ee a et et a ee ee et Se a ee ee ee ee ee te ee 





SS ne AT IAIN nin Ns nei 


2 -SBTTL APT COMMUNICATIONS ROUTINE 

; :> EAAEAARAEARAAAAEAEAKKAEEREAEKAEEEAKAKEEERAERELRAAEKEEAEKKKAKAKKKKKKAKKKKE 
$4 17 ale 1 020730 SATY1: MOVB  #1.SFFLG 2:2TO REPORT FATAL ERROR 

112737 1 020726 $ATY3: nove 4 SLC 7:70 TYPE A MESSAGE 

1 11 93 000001 020730 SATYé: MOVB ¥#1,SFFLG 77TO ONLY REPORT FATAL ERROR 

' 3 (MOV RO,-(SP) 3 
1 1 146 MOV R1,-(SP) :: 

1 14 105737 020726 TST8) 4 =—s_s SMFLLG f- 

1 1399 BEQ 5$ 22 1F NOT: 

1 122737 000001 001226 CMPB #APTENV.SENVY ;:: OPERATING UNDER APT? 


MAIN. MACYT1 
CZKWLA.P11 


LCL LR LR RR FR FR 


Nt Net et et et Nt Nt Se Nt Nt Ne Ne ee Net ee et ae ae 


+. ¥ = o > > . . o _ 


sSOOOC 


Yoletelalotetetet- | 
¢ FP CCR CANS 
“i 


et i i 
a ee ee ee ee a et ee ee ee ee ae ee a ee ee ee ee ee ee ee ee ee 


mw 
ss 
~~ 


PR LO LL Le, Ly Ly ey, fy, fe, fe, 
—— ee ee ee ee ee ee ee =e Se ee 
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53 


2737 
1114 
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: 
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39 


001227 


000004 


001206 
020640 
000004 


= 


B 6 


T COMMUNICATIONS ROUTINE 





40 PAGE 5-9 

AP 
BNE 
8I1TB 
BEQ 
MOV 
ADD 

1$: TST 
BNE 
MOV 

23: TST8 

3$: 

4$: 

5$: 

10$: 





3$ 
#APTSPOOL.SENYM = ; SHOULD 


@4(SP) RO 
#2,4(SP) 
SMSGTYPE 








0 


SFFLG 
12$ 


APTCSUP= 
~SBTTL TTY INPUT ROUTINE 


SEQ 0066 


szIF NOT: BR 
=. SPOOL MESSAGES? 





SSAGE ADDR. 

> BUMP RETURN ADDR. 
72SEE IF DONE W/ LAST XMISSION? 
s2IF NOT: WAIT 
7<PUT ADDR IN MAILBOX 
:sFIND END OF MESSAGE 





:-TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
> RETURN ADDRESS 

::PUSH 177776 ON STACK 

>:CALL TYPE MACRO 





SA ae REPORT FATAL ERROR? 
: SRUNNING UNDER APT? 
FINISHED LAST MESSAGE? 

-° IF NOT WAIT 















= -=BUMP RETURN ADDR. 
:: TELL APT TO TAKE ERROR 
i CLE FATAL FLAG 





33 LAG 
37FATAL FLAG 


5g RRA AAAAAEAEAAREAAAREAEEAEEAAKAEAEEKEEAEEAEAEEEEKREEEEAKEEEKKKEEREEEE 


~ ENABL 


LSB 


SF TAAAAAAAAAAAAAAKEEAEEAAEAERAAAEEAKAKEARARAEAREEEEKREKAKKKKKKKKKKKKKKS 


> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE 
> *ROUTINE IS ENTERED FROM 
> *SERVICE aot TEST FOR 


~ WHEN 
000176 001140 $CKSUR: cH 
















TRAP HANDLER 





AND WILL 
SWITCH REGISTER TRAP CALL 








CHANGE IN SOF TWARE 
TING IN TTY FLAG MODE. 
#SWREG, ::1S THE SOFT-SWR SELECTED? 
15$ : ;BRANCH IF NO 
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160176 
160172 
177600 
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021544 
021551 
000176 
021562 
160114 
160110 
177600 
000003 
021532 
0011 

000100 
003550 
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021537 
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000001 


000001 
160046 


157774 
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157752 
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CRGPGUZERGEREARG SELBY 48RGEzE 
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Y INPUT ROUTINE 


aSTks 

15$ 
a$TKB,-(SP) 
#°C177.(5P) 
#7, (SPJ+ 
15$ 


SAUTOB #1 
15$ 


-SCNTLG 
, SMSWR 
SWREG ,~(SP) 


@$TKB,-(SP) 
#°C177, (SP) 


(SP) #3 

9$ 

,SCNTLC 
SINTAG,#1 
#100, ,a$TKS 
RESTRT 


(SP) ,#25 
»SCNTLU 
is 


(SP) #15 

16$ 

4(SP) 

11 | 

2(SP) ,a@SwR 

#6, SP 
SCRLF 

$ NTAG #1 

#100 .aSTKS 

PC, STYPEC 

(SP) #60 





1 
fo #67 
#60, (SP)+ 


SEQ 0067 





:zSTRIP-OFF THE ASCIi 
oe IT A CONTROL G? 
RETURN TO USER 
>3ARE WE RUNNING IN AUTO-MODE? 
> BRANCH IF YES 


= ECHO THE CONTROL-G (*G) 
> TYPE 








> = SAVE OR TYPEOUT 

+260 TYPE--OCTAL ASCII(ALL DIGITS) 
:PROMPT FOR NEW SWR 

>= CLEAR ag eg 
>THE NEW SWR 








:CHAR THERE? 
TIF NOT TRY AGAIN 


:sPICK UP CHAR 
>sMAKE IT 7-BIT ASCII 


21S IT ae 
:SYES ECHO CONTROL=C (“C) 
EAN UP STACK 
: ;REENABLE TTY KEYBOARD INTERRUPTS? 


H IF NO 
* TALLOW TTY KEYBOARD INTERRUPTS 
:sCONTROL-C RESTART 














315, IT eee 
ziveS, ECHO CONTROL-U (*U) 

PREVIOUS INPUT 
>:LET'S TRY IT AGAIN 
::1S IT A <CR>? 


77YES, IS IT THE FIRST CHAR? 
IF YES 







Ao ag 3 TTY xBD INTERRUPTS? 
: BRANCH I 

: TRE-ENABLE TTY KBD INTERRUPTS 
RE TURN 





7BRANCH IF YES 
7:STRIP-OFF ASCII 
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000002 





5768 
157622 
rus 
000021 
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TTY INPUT ROUTINE 


TST 2(SP) 
BEQ 17$ 
ASL (SP) 
ASL (SP) 
(SP 
17$: 2 


INC (SP) 

BIS -2(SP), (SP) 

18$ FYPE SOUES 
"BR 30$ 

.DSABL LSB 


:2iS THIS THE FIRST CHAR 
+ H IF YES 





>: SIMULATE CONTROL-U 


2 EEE EEEEKEEAEKAKEEAAEREEEAEEEAEKKAKAERAARAAAKEAAEARAKAREREREEKEARRAERE 


s THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


*CAL 











:* RDCHR 

z* RETURN HERE 

** 

SRDCHR: MOV (SP) ,-(SP) 
MOV 4(SP) ,2(SP) 

1$: TSTB asTKs 
BPL 
MOVB  a$TKB,4(SP) 
BIC #°C<177>,4(SP) 
CMP 4(SP) ,#23 
BNE 3$ 

2$: TSTB. 3s aSTKS 
BPL 2$ 
MOVB  a$TKB,-(SP) 
BIC #°C177, (SP) 
CMP (SP) +, #21. 
BNE 2$ 
BR 18 : 

38: CMP 4(SP) ,#140 
BLT ae 
BGT 
BIC #40,4(SP) 

4$: RTI . 


g>se3 






INPUT A SINGLE CHARACTER FROM THE TTY 


o 


a8 
_~ 
+e 
=z 
deve 





;2G0 BACK 





“2D 


wt 

$ 
ime 
> 





i 2 
— 
>=5% 
=a 
scart 
faa) 





pa 
“J 






— he 


S_ON THE STACK 


HARACTER I 
:sWITH PARITY BIT STRIPPED OFF 





"eo 
Ss 
§ 





NO 
CHARACTER 
uy THERE 


b 
42 









33 


a 
;, 
: 


UPPE 
TO USE 


FF RARER AA AAAKAAKAAAAAEEEEAAAEARAREEEERAREREEERERERAEREREEAKEKEKEKKS 


3¢ RDLIN 
ei RETURN HERE 





R3,~-(SP) 
#STTYIN,RS 








MOVB (SP), (R3) 
CMPB #3. (RX) 


MOV 

MOV 

CMP #STTYINGS. R35 
BLOS 4% 


Sem ROUTINE WILL INPUT A STRING FROM THE TTY 
*® . 


22 INPUT A STRING FROM THE TTY 
se SS FIRST CHARACTER WILL BE 
; TERMINATOR WILL BE A BYTE OF ALL O 





$s 
READ _ CHARACTER FROM THE TTY 





:71S iT A CONTROL-C? 


SEQ 0068 


a i i ee ee ee ee ee EO PO FR 
(lel el el ell ae eel eel el ee ee ee eld ee ed ee eed ee 


™m 
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-PT1 1 -B0 07: TY INPUT 



































ne T ROUT INE SEQ 0069 
0214 BNE > [BRANCH IF NO 
0214 021532 TYPE -SCNTLC | SZTYPE A CONTROL-C (*O) 
021426 MOV (SP)+¢+_ R35  ZZRESTORE R35 
0214 003530 JP RESTRT  32G0TO CONTROL-C RESTART 
0214 000177 10$: CMPB #177, (R3) 3 IS IT A RUBOUT 
021440 BNE 3$ _ 37SKIP IF NOT 
021442 001202 4%: TYPE ,SQUES Fh A ‘*?°* 
0 1728 BR 1$  g3zCLEAR THE BUFFER AND LOOP 
0214 Oe 50 3$: MOVB (R3) 9S — 3ZECHO THE CHARACTER 
0214546 0215 TYPE f | 
021460 15 CMPB #15, (R3)+ >: CHECK FOR RETURN 
021464 6NE 3 zLOOP IF NOT RETURN 
0 1098 177777 CLRB -1(R3) | gs CLEAR RETURN (THE 15) 
0214 1204 TYPE F - SZ TYPE A LINE FEED 
021476 MOV (SP)+_R3 =< TORE R3 
0215 MOV (SP) ,~(SP) : gzADJUST THE STACK AND PUT ADDRESS OF THE 
021 4 000004 000002 MOV 4(SP) ,2(SP) ee FIRST ASCII CHARACTER ON IT 
02151 021522 000004 MOV MSTTYIN,GC(SP) | 
8 1318 RT] 7 RETURN 
1 900 9$: -BYTE 0 >; STORAGE FOR ASCII CHAR. TO TYPE 
0 12 1 000 BYTE 0O 32 TERMINATOR 
1 orete STTYIN: .BLKB 8. 7 RESERVE 8 BYTES FOR TTY INPUT 
15 041 : ,ASCIZ /*C€/<15><12> - ;:CONTROL °'‘C’’ 
15 1 . : ASCIZ /*U/<15><1 
1544 0435 15 : ,.ASCIZ /*G/<15><12> : 
138) ()1 §1412 ASCIZ <15><12>/SWR = / 
1825 036440 0 
0 128 020040 042516 eASCIZ / NEW = / 
021570 8 0075 
1574 EVEN 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
2 LARA AAAAERERAEREAEREEREEEEEEEARERERERRRRERSREREEAEREREREREKE KEE 
;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
7* IT TO BINARY. 
;* ; : 
2 RDOCT 3Z7READ AN OCTAL NUMBER 
;* RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 
;* 7z;MIGH ORDER BITS ARE IN S$HIOCT 
1306 11646 SRDOCT: MOV (SP),-(SP) :zPROVIDE SPACE FOR THE 
1576 01 000004 000002 MoV _4(SP),2(SP) 7 INPUT NUMBER 
1 10046 MOV 7 (SP) 32PUSH RO ON STACK 
1 10146 MOV R1,~-(SP) — 7 PUSH R1 ON STACK 
1 10246 MOV a7 (SP) 372PUSH R2 ON 
161 04411 1$: RDLIN 37 ;READ AN ASCIZ LINE 
1614 ASone MOV (SP)+_,RO 7:GET ADDRESS OF 1ST CHARACTER 
19) 1 a os 7: CLEAR DATA WORD 
1 7 8 23: MOVB (RO)+,-(SP) :zPICKUP THIS CHARACTER 
1 41 BEQ 3$ :: IF ZERO GET OUT 
1 1 ASL R1 2 sae 
1 10 ROL R2 
16 ASL R1 77%4 
16 1s ROL RZ 
16 1 ASL R1 72*8 
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MAIN. MACY11 (1052) 135-MAR-BO 07:40 PAGE 5-13 : 
CZ7KWLA.P11 1 -80 07:39 READ AN OCTAL NUMBER FROM THE TTY SEQ 0070 

‘1) 021640 006102 ROL 

(1) 021642 2716 177770 BIC #°C7. (SP) scSTRIP THE ASCII JUNK 

(1) @G 1028 601 ADD (SP)+¢_R1 2 sADD IN THIS DIGIT 

(1) 0216 764 or seh 

(1) 021652 726 33: TST {SP)+ CLEAN TERMINATOR FROM STACK 

(1) 021654 0101 000012 MOV R1,12(SP) SAVE THE RESULT 

(1) 021660 0102 021674 MOV R2,SHIOCT 

(3) 0216664 012602 MOV (SP)+_R2 :zPOP STACK INTO R2 

(3) 0 1068 012601 MOV (SP)+_R1 3;zP0OP STACK INTO R1 

(3) 021670 012600 MOV (SP)+,_RO :zPOP STACK INTO RO 

(1) 021672 e RTI ; sRETURN 

(1) 021674 Q00000 SHIOCT: .WORD O ; HIGH ORDER BITS GO HERE 
aS -S8TTL BINARY TO OCTAL (ASCII) AND TYPE 

(2) J AEA AAAEAAEAAAEEAARREEEEEEEEREKEAERAEAERRRARAARERRKEKEKEAEAERERRERAREREREE 
(1) aTHIS ROUTINE IS USED TO a A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) + *OCTAL (ASCII) NUMBER AND TYPE IT. 

1 : s$TYPOS---ENTER HERE 10's SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
H za 

(1) 2% > NUMBER TO BE TYPED 

(1) 39 7: CALL FOR TYPEQUT 

(1) 59 3zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) zy F ::M=1 OR O 

(1) :o 32 1=TYPE LEADING ZEROS 

HL ;* 3; 0=SUPPRESS LEADING ZEROS 

°° 

(1) : *$TYPON----ENTER — TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) -*$TYPOS OR $TYPO 

(1) ;*CALL: 

(1) ;* NUM, - (SP) 7 NUMBER TO BE TYPED 

Hy ;* 7zCALL FOR TYPEOUT 

*® 

o} “ae HERE FOR TYPEOUT OF A 16 BIT NUMBER 

(1) se MOV NUM, -(SP) 7 NUMBER TO BE TYPED 

ef ;* TYPOC pees _  g3CALL FOR TYPEQUT 

(1) 1 STYPOS: MOV. : «PICKUP THE MODE 

(1) 1 022121 MOVB 3ZLOAD ZERO FILL SWITCH 

(1) 1 MOVB RET OF DIGITS TO TYPE 

O51 BR. ee 

(1) 1 2121 $TYPOC: MOVB 32St RO FILL SWITCH 

(1) 1 125 MOVB ssSt X(6) DIGITS 

(1) 1 022120 S$TYPON: MOVB 3; ERATION COUNT 

(1) 1 MOV as 

(1) 1 MOV bs 

(1) 1 MOV 77 SAVE RS 

th : a oy :;GET THE NUMBER OF DIGITS TO TYPE 
(1) 1 ADD Bh age IT FOR MAX. ALLOWED 

(1) 7 MOVB zSAVE IT FOR USE 

(1) 1 MOVB :3GET THE ZERO FILL SWITCH 

(1) 1 MOV CKUP THE INPUT NUMBER 

(1) CLR THE OUTPUT WORD 

(1) 1$: ROL 7 ROTATE MSB INTO °'C’’ 
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07:39 BINARY TO OCTAL (ASCII) AND TYPE 
BR 3$ ::@0 DO ane 
23: ROL RS >7FORM THIS DIGIT 
ROL ae 
ROL R5 
MOY RS.RE 
33: ROL 3 7:GET LSB OF THIS DIGIT 
022122 DECB >: TYPE THIS DIGIT? 
BPL se IF NO 
177770 BIC #177770.R3 7;GET RID OF JUNK 
BNE >: TEST FOR 0 
TST RS > SUPPRESS THIS 0? 
BEQ 53 BR IF YES 
4S: int 4 si *"T SUPPRESS ANYMORE 0°S 
000060 BIS #°O,R3 >7MAKE THIS DIGIT ASCII 
000040 5$: BIS 7 aS > sMAKE oA IF NOT ALREADY 
022116 MOVB  R3. 8S ;3SAVE FOR TYPING 
022116 TYPE 83 3;GO TYPE THIS DIGIT 
022120 7$ DECB SOCNT >: COUNT BY 1 
BGT 2$ ;;BR IF MORE TO DO 
BLT 6$ > 7BR IF DONE 
NC RS >; INSURE LAST DIGIT ISN'T A BLANK 
BR 2$ = =G0 DO THE LAST DIGIT 
6$: MOV (SP)+,R5 = -RESTORE R R5 
MOV (SP) +,RG 
MOV (SP)+,R3 
000002 000004 MOV 2(SP) ,4(SP) ee THE STACK FOR RETURNING 
MOV (SP)+, (SP) 
RT] 
8$: BYTE O 
BYTE 0 
SOCNT BYTE O 
SOFILL: pti 0 SWITCH 
SOMODE : 0 R OF DIGITS TO TYPE 
- SBTTL COWERT BINARY TO DECIMAL’ "AND TYPE ROUTINE 
2 PETTITT LITTALELT LE LLAE LTTE TTT TTT TTT TTT TT 
;*THIS ROUTINE IS USED ty CHANGE A 16-BIT BINARY NUMBER TO A a enelt 
>*SIGNED DECIMAL (ASCII) NUMBER ry TYPE IT. ahem at ON WHETHER 'T 
3 R IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
> *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
: SREPLACED “an SPACES. | 
zs MOV —s NUM, - (SP) 3;PUT THE BINARY NUMBER ON THE STACK 
;* TYPDS | 3:G0 TO THE ROUTINE 
STYPDS: 
MOV RO, -(SP) 
MOV 
MOV 
MOV 
020200 MOV 
000020 MOV 
BPL 
NEG R5 
000055 000001 MOVB #*-,1(SP) 








SEQ 0071 


H 6 






































MAIN. MACY11 30A(1052) 13-MAR-80 07:40 PAGE 5-15 
C7KWLA.P11 13-MAR-80 07:39 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(1) 022160 1$: CLR RO Zz: ZERO THE CONSTANTS INDEX 
(1) 022162 022240 MOV #SDBLK.R3 ->SETUP THE OU 
(1) O 166 0000460 #* ,(R3)+ 
‘> 4 23: CLR 
(1) 022174 022330 MOV SDTBL(RO).R1 =:GET THE CONSTANT 
4) 9 300 3s: SUB R7R5 >:FORM THIS BCD DIGIT 
(1) Q 2 BLT 4$ 77BR IF 
1) 0 INC Re >: INCREASE THE BCD DIGIT BY 1 
(1) 022210 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
(1) 022212 TST R2 >: CHECK IF BCD DIGIT=0 
(1) 022214 BNE 5$ >:FALL THROUGH IF 0 
(1) 022216 TSTB Ess (SP?) ::STILL DOING LEADING 0°S? 
(1) 0 1 BMI 7$ -:BR IF YES 
(1) 022222 S$: ASLB = (SP) > :MSD? 
(1) 022224 1 BCC 65 ::BR IF NO 
(1) 6 1 000001 177777 1(SP),-1(R3) = = YES==SET THE SIGN 
(1) 52702 000060 $: S #°0,R2 ::MAKE THE BCD DIGIT ASCII 
(1) 40 052702 000040 7$: BIS #* ~R2 -:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 022264 11 22 MOVB  R2.(R3)+ >:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 0 46 0 TST (RO) + 22JUST INCREMENT ING 
(1) 6 27 000010 CMP RO,#10 - = CHEC INDEX 
(1) 54 46 BLT 2$ 
(1) 056 g BGT 8$ - 
(1) 66 1050 MOV RS,R2 -:GET THE LSD 
(1) 8 764 BR 6$ 3:G0 CHANGE TO ASCII 
(1) 64 1 726 8$: TSTB —s-« (SP) + >:WAS THE LSD THE FIRST NON-ZERO? 
(1) Oz 66 10000 BPL 9$ ::BR IF NO 
(1) 116663 177777 177776 MOVB <-1(SP),-2(R3) ::YES==SET THE SIGN FOR TYPING 
(1) 76 105013 CLRB ss (R’3) OR 
(3) 0C MOV (SP)+_R5 
(3) 0 0¢ MOV = (SP) +, R3 
(3) : MOV (SP)+,R2 
(3) O¢ MOV (SP) +_R1 
(3) 1C MOV (SP) +_RO 
(7) 1 022340 TYPE $SDBLK >*NOW TYPE THE 
(1) 16 000002 000004 MOV 2(SP) .4(SP) > ADJUST THE STACK 
(1) 4 MOV (SP)+, (SP) 
(1) 022326 RTI : ; RETURN TO USER 
(1) ¢ $DTBL: 10000. 
(1) 02233¢ 1000. 
a) 6 100. 
(1) ‘ e 10. 
(V) 22340 SDBLK: .BLKw 4 
2386 .SBTTL ROUTINE TO SIZE MEMORY 
(2) FF SARA RAAAAAAERARAEAEEAERAKAEKEAEAEKEEERAEEARAREREARERERERREREEEKES 
(1) > *CALL: 
(1) :* JSR PC,$SIZE 
*® 
(1) >*$LSTAD WILL CONTAIN: 
(1) 3 WITH KT11 GPT ON -- LAST VIRTUAL ADDRESS OF THE LAST BANK 
(1) >. WITHOUT KT11 OPTION -- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
(1) >*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF 
) >*$KT11 1S THE Y MANAGEMENT KEY 


;*BIT07 = 0 DON'T USE MEMORY MANAGEMENT 


3-MAR-80 07:40 PAGE 5-16 9 cnrs 
CTR A. pin S-MAR-80 07 39 ROUTINE TO SIZE MEMORY SEQ 00 | 


SETUP BEFORE THE CALL 
481715 “x DON'T HA HAVE MEMORY MANAGEMENT OPTION 





=) 
ee 































































4d) : DETERMINED BY ROUTINE 
D - > RO ON THE STACK 
On OION ce eel as rt) 2 CAVE R? ON THE STACK 
a pees R2.~(SP) <2SAVE R2 ON THE STACK 
q) O108ce R3,-(SP) ::SAVE R3 ON THE STACK 
4 4 000004 @VERRVEC.-(SP) =:SAVE PRESENT ERROR VECTOR PS & PC 
4) 5) boy 000006 @FERRVEC+2,—(SP)° 
aD $10608 SPRO seh Pe THE STACK POINTER 
a cased THE ERRVEC PS ys Sot ::PUSH OLD PSwW AND PC ON STACK 
(3) 013637 000006 MOV (SP) +, a#ERRVEC+2. peo jZSAVE THE PSW IN a#ERRVEC+2 
(1) 012701 003776 MOV #3776.R1 33 , See 
one wr: [eto Sop" FER SURE ROSSA Reena 
3 o197 022550 000004 Rov SSN TEX ,@#ERRVEC pee FOR TIMEOUT 
(1) 737 177572 TST KT11 ARE YOU 
1) 053737 100000 022406 BIS #100000, $KT11 INITIALIZE FOR PAR | OADING 
a3 if 0 006010 add ait a > LOAD “hm SA AND EIGHT “PDR. 'S'' 
: 27~40(R2) ;3;PDR = 

(4) — iad they CRa)s eget "'PAR’’ - wane 
1} HBSS pgp oman = | 
y 5048 177600 mov m177600, -(R2) 

1 0225 MOV #2$ , AVERRVEC 
} 1 73? ats 19256 mov #20, a4SR3 

2$: CMP (SP) +, (SP)+ 23 

(3 $ 17757 3$: INC : TURN ON Y MANAGE 
(1) 7 022540 000004 MOV #5K10 T @WERRVEC’ : ;SET FOR TIME OU a 
1) ? raga 43: TST 6 UN X—ME 
71 0 ADD yb ipo} «MAKE A 1k STEP 
} 15 172356 | OM @PKIPAR7, (R2) 3 3LAST ONE? 

; BH 
tk 11303 $KTOUT: MOV (R2) .R2 
(1) 177572 CLR 
(1) | 

) 737 1 2406 $SKINEX: BIC 

a} 12737 0 855004 SCORE : MOV 
(1) 000 1$: ADD 
i i 
a 177776 cH 
(1) 004000 SCROUT: SUB 
) — — mv RO, SP < RESTORE 1 THE STACK 
y) 000006 MOV (SP) +, @WERRVEC+2° --RESTORE ERROR VECTOR 
tf 000004 MOV (SP) +. a#ERRVEC 









-MAIN. MACY11 (1052) 13-MAR-80 07:40 PAGE 5-17 
CZKWLA.P11 1 ~80 07:39 ROUTINE TG SIZE MEMORY 
(1) 010137 022652 





R1,SLSTAD > zLAST ADDRESS 
R2,$LSTBK BANK 


eres 





(1) 012603 022654 LAST 

(1) 9g 603 > RESTORE R3 

(1) 9 o eg 33 ORE 

(1) 0 ee \sem : RESTORE R1 

(1) 9 8 7 RESTORE 

(1) 0226 

(1) 022652 > :CONTAINS THE LAST ADDRESS 
(1) 022654 : .WORD O 7: CONTAINS THE LAST BANK 
2387 ERROR HANDLER ROUTINE 


{SAA AEAAAAAAAEARAAAEEEEERAKAERERERAREKRRERAAERARERERAERREREEREEY 


“RTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
RROR o- NUMBER 


Se ee ee el 



































1) 

*) 

1) : # SAVE THE E AND THE ADDRESS OF THE ERROR CALL 

1) AND GO TO SERRTYP ON 

(1) THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) : #SW15=1 HALT 

(1) 2 *S5W13=1 INHIBIT ERROR TYPEOUTS 

(1) :*SW10=1 BELL ON ERROR 

a ar LOOP ON ERROR 

( :* 

oh ;* ERROR WN 7 ERROR=EMT AND N=ERROR ITEM NUMBER 

(1) : 

(1) 04407 CKSWR 72 TEST FOR CHANGE IN SOF T=-SwR 

(2) 737 MOVB STSTNM,TSTNUM = =;:SET UP TEST # y ERROR 

(1) ¢ 7 INCB SERFLG ss THE ERROR FLAG 

(1) 5 BEQ 7$ =DON'T LET THE FLAG GO TO ZERO 
(1) 777 MOV STSTNM,aDISPLAY 3 DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 777 BIT #B1T10.aSWR i6 L ON ERROR? 

(1) 402 BEQ Pp 

(1) 401 TYPE * TRING BELL 

(1) 5237 INC eb a THE NUMBER OF ERRORS 

$a 1 a4 ;>;GET ADDRESS OF ERROR INSTRUCTION 
(1) 737 MOVB +2 STRIP SAVE THE ERROR ITEM CODE 
(1) 777 BIT sSKIP : OUT IF SET 

(1) O38 BNE 3SKIP T OuTS 

(1) 62 CMP 321F RETURN PC LESS THAN 1002 

(1) BHI Fy IS ILLEGAL TRAP 

(1) 3: PROCESS UNEXPECTED TRAP OR INT 

(1) 9 7 MOV - 4(SP) , SERRPC 3 GET "9 AT TIME OF FALSE TRAP 

(} 1 401 VP 1 | TYPE NEABE 

3) AR MOV SERRPC ,-(SP) 77SAVE SERRPC FOR TYPEOUT 

$3 ; 4 we: 118 3;G0 TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 1627 g SUB #6, (SP) ::GET FALSE TRAP VECTOR ADDR 

(1) $> MOV (SP) , SERRPC 

‘$} MOV SERRPC .-(SP) 7:SAVE SERRPC FOR TYPEOUT 

(2) TYPOC 3zGO0 TYPE--OCTAL ASCII‘(ALL DIGITS) 
(1) | TYPE -SCRLF 

th Sg (SP)+, (SP)+ :7;PO0P FALSE TRAP VECTOR PCEADDR 
(1) 000040 10$ ASCIZ < "= * 

(1) 054705 11$ -ASCIZ ° UNEXPECTED TRAP TO * 





PS ae 
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4) 0 042520 052103 042105 

(1) 05 040522 020120 

i. 70 067526 

(1) 0230764 12$: 

(1) 923074 006737 Oc 3508 PC SERRTYP ::G0 TO USER ERROR ROUTINE 

33 p Lv 1046401 001 208 , SCRLF 

1) 104 1 2737 900001 001226 #APTENV.SENV =: : RUNNING IN APT MODE 

(1) 0 HF >:NO,SKIP APT ERROR REPORT 

(1) 02311 001114 023126 $ITEMB.21$ >:SET ITEM NUMBER AS ERROR NUMBER 

1) 1 020502 PC, SATYS >:REPORT FATAL ERROR TO APT 

(1) 0531 21$ : 

(1) 023130 000 22S: 22$ ::APT ERROR LOOP 

(1) 132 005777 156002 2$: aSwR >:HALT ON ERROR 

(1) 13% (1 3$ ;3SKIP IF CONTINUE 

(1) 14 T ON ERROR! 

(1) 142 106407 >:TEST FOR CHANGE IN SOFT-SwR 

(1) 144 777 001000 155766 38: #81709, aSwWR >:LOOP ON ERROR SWITCH SET? 

(1) 152 1402 4$ ait IF NO 

(1) 154 13716 001110 SLPERR, (SP) > FUDGE RETURN FOR LOOPING 

(1) 160 005737 001174 4$: SESCAPE 33 CHECK FOR AN ESCAPE ADDRESS 

(1) 164 1402 5$ F NONE 

(1) 1¢¢ 013716 001174 os SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 

(1) 17 020737 020146 000042 WSENDAD,@#42 =: :ACT-11 AUTO-ACCEPT? 

(1) 00 001001 6$ ; 3BRANCH IF NO 

(1) 02 000000 aes 

(1) | Y 6$: 

(1) 000002 





RTI + ;RETURN 
.SBTTL ERROR MESSAGE TYPEOQUT ROUTINE 































2388 
(1) 
3) p REA AAAEREREAAEKEEREEREEEEEAERERKERERERERAREEREAEEREERREEKRERRAKEE 
(1) “STHIS ROUTINE USES THE ‘'ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE, WHICH 
(1) :*ERROR IS TO BE REPORTED. IT THEN OBTAINS. THE "ERROR TABLE’’ (SERRTB), 
1) :*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) SERRTYP: : 
(1) 001203 TYPE ,S$CRLF ::""CARRIAGE RETURN’ & ‘LINE FEED’’ 
(1) 1 MOV RO,~(SP) 72 SAVE RO 
(1) 14 CLR : PICKUP THE ITEM INDEX 
(1) 16 001114 BISB a#SITEMB,RO 
(1) 2 BNE 1$ :71F ITEM NUMBER IS ZERO, JUST 
(1) 3 TYPE THE PC OF THE ERROR 
023224 001116 MOV SERRPC .-(SP) :: SAVE FOR TYPEOUT 
TyPoc Pe 360 re eeets, ASCII(ALL DIGITS) 
(1) 1$: DEC RO : ADJUST THE INDEX SO THAT IT WILL 
(1) ASL RO 3 WORK FOR THE ERROR TABLE 
(1) ASL RO 
(1) ASL RO 
(1) é 001332 ADD #SERRTB,.RO : : FORM TABLE POINTER 
(1) 50 023260 MOV (RO)+,2$ > =PICKUP MESSAGE’’ POINTER 
(1) BEG 3$ =: SKIP TYPEOUT IF NO POINTER 





L 6 
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(1) 023256 TYPE THE “ERROR MESSAGE" 
(1) 023260 2S: 0 2° ERROR MESSAGE"* POINTER GOES HERE 
(1) 023262 001203 »SCRLF 72° CARRIAGE RE "LINE FEED’ 
( 09% bf 023276 3S: (RO) +.48 ;PICKUP ‘DATA HEADER” POINTER 
(1) 023274 i 
(J 025 6 4$: 0 NTER GOES HERE 
7 3500 001203 -SCRLF 3" ‘CARRIAGE RE “LINE FEED’ 
(7 53 30 S$: (RO) ,RO :IPICKUP "DATA TABLE™ POINTER 
J 53306 7$ : G0 TYPE THE DATA 
(7 1¢ i: (SP)+,RO ;3RESTORE RO 
(1) 0 le 001203 , SCRLF ;3"‘CARRIAGE RETURN’ & "LINE FEED" 
a 02331 - PC > 3RETURN 

5 
(2 0) MOV @(RO)+,-(SP)  ;;SAVE a(RO)+ FOR TYPEOUT 
(2 2 TrPOC 3:GO TYPE--OCTAL ASCII(ALL DIGITS) 
( 4 TST (RO) 21S THERE ANOTHER NUMBER? 

23326 001770 BEQ 6$ ;;BR IF 
0 104401 023336 TYPE 8$ 7: TYPE TWO(2) SPACES 
0 33 9007 1 BR 7$ ; LOOP 
6 020040 000 8$: ASCIZ / / 7; TWO(2) SPACES 
023342 EVEN 





.SBTTL SCOPE HANDLER ROUTINE 


{AREER AAREAEREEEEREERERRREREREERRREERRRERRERERE REE EERE RE 
: RTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

: SAND LOAD THE TEST ee teaere cs INTO THE DISPLAY REG. (DISPLAY<7:0>) 
ERROR (SERFLG) INTO DISPLAY<15:08> 

BY THIS ROUTINE ARE: 


a? ON 

INHIBIT ITERATIONS 
LOOP | 

LOOP ON TEST IN SWR<7:0> 
;: SCOPE=IOT 












sTEST FOR C 
LESS THAN 1 


UNEXPECTED TRAP OR I 
TRAPPED HERE VIA 


IN SOF T-SwWR 





NTERRRUPT 


4 4 7? 001002 
022656 
026000 155554 













-#HHHASTART OF CODE FOR THE XOR TE 

$XTSTR: BR 6$ On THE ’%XOR'’ TESTER C 

RUCTION TO A’ NOP L2e0) 
QFERRVEC-~ (SP) 


eon OF THE ERROR VECTOR 



















14 
19 an 
000004 (SP) + ,aVERRVEC 
SSVLAD TEST 
5$: (SP)+, (SP)+ AFTER A TIME OUT 
000004 VECTOR 


a er ee a ee ee ee ee ae ee ae a a a a ee a ee a ee ee alee ee OD es ee eet Net ee Ne Nt ee Ne Se Net ee a ee et Ne ae 


LLL LM Le Pe LP Py Le LL LL OL LL eh NIL mt itm 





(SP) + ,@#ERRVEC 
7$ 


: 
4 


a | 
~ 
s 


Se ee 


LL LL BR ER LR FR RFR FR 


Ne a a et Nt Nt et Nt te a et et Ne et et et ee et ee et ee ee ee ee we 


Fi te ee ee ee a a ae, La ee ae ae, ae ae a ae et a te tt a 


s 


tt NS tt 8 3 WWW 


OR LO LO Py, fy, fly, fy, Le, fy, fe, i, in, a, i, Le, sin, Lm, in, 
~~" ee ee ee Se He Se Se ee ee Se ee ee ee ee Se a a ee ee 
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a 


6%: ;4#AAHEND OF CODE FOR THE XOR TESTER##ARA 


: 
: 
: 











x 155506 Bir #81T08,aSwR :3LO0P ON SPEC. TEST? 
53 197 7 155500 001102 (MPB  =s- @SWR. STSTNM >:0N THE RIGHT TEST? SwR<7:0> 
2 1465 BEQ SOVER =:BR IF YES 
44 1097 7 001103 2$: TSTB = SERFLG > >HAS aN ERROR OCCURRED? 
$2 123737 001115 001103 SERMAX.SERFLG :: ERRORS FOR THIS TEST OCCURRED? 
4e 1 13 be NO 
001000 155450 BIT #B1T09.aSwR 3: ON ERROR? 
‘ Spee BEQ 4$ >:BR IF NO 
72 013737 001110 001106 7S: MOV >:SET LOOP ADDRESS TO LAST SCOPE 
$6 
05037 001103 4$: CLRB ::ZERO THE ERROR FLAG 
005037 001172 CLR 7: CLEAR THE NUMBER OF ITERATIONS TO MAKE 





=:ESCAPE TO THE NEXT TEST 
:SINMIBIT ITERATIONS? 

::IF FIRST PASS OF PROGRAM 
; INHIBIT ITERATIONS 


BR 
004000 155416 3$: BIT 
BNE 












SESKERNERER 
S 
a 
é 

























001104 INC SICNT :: INCREMENT ITERATION COUNT 
7 001172 001104 CMP STIMES, SICNT :: CHECK THE OF ITERATIONS MADE 
4 BGE SOVER :27BR IF MORE ITERATION REQUIRED 
7 1 001104 1$: MOV #1,S1CNT 7ZREINITIALIZE THE ITERATION COUNTER 
554 013737 001172 MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
198 7 110 SSVLAD: STSTNM >: COUNT Test NUMBE 
113737 0011 001212 STSTNM,STESIN ::SET TEST NUMBER IN APT MAILBOX 
011637 0011 (SP) , SLPADR 72SAVE SCOPE LOOP ADDRESS 
600 o116 7 111 (SP) ,SLPERR :zSAVE ERROR LOOP ADDRESS 
é 39 7 1174 SCAPE ::CLEAR THE ESCAPE FROM ERROR ADDRESS 
0 112737 1 001115 #1 , SERMAX :Z0NLY ALLOW ONE(1) ERROR ON NEXT TEST 
6 013777 1102 155316 SOVER: STSTNM.@DISPLAY ;:DISPLAY TEST NUMBER 
4 013716 1106 SLPADR, (SP) ee RETURN 
; 2 RTI 2: FIXES PS 
0 SMXCNT: 2000. | >>MAX. NUMBER OF ITERATIONS 
.SBTTL POWER DOWN AND UP ROUTINES 
2 JT AEAAAAAAAEEAAEAKEEREEEEREREERAERAEEAEEAERERAEEEEKEHEREKEEKREKEEREKKKKEEE 
-POWER DOWN ROUTINE 
3% 01 23? 024000 000024 $PWRDN: MOV #31, LUP @aPuRVEC ::SET FOR FAST UP 
12737 000340 000026 MOV § #340, a#PWRVEC+2 ;:PRIO:7 
10046 MOV ~(SP) 7Z7PUSH RO ON STACK 
10146 MOV ! 72PUSH R17 ON STACK 
10246 MOV 3 PUSH Re 
10346 MOV 3: PUSH 
010446 MOV : :PUSH R46 
9 MOV 7 PUSH RS 
1 $8 155250 MOV : PUSH 
1 024 MOV 77: SAVE 
74 012737 023706 000024 . VEC ;;SET 
704 776 BR 2 7 ZHANG UP 


fF RA EAAAERAERAEAAEEEAAAEAEAEEEEAEAEAEEEAEARERAAEEAEAEREEEERAERERAREEAEEAES 
“POWER UP RO'JTINE 
012737 024000 000024 $PwRUP: MOV #SILLUP ,@#PWRVEC ::SET FOR FAST DOWN 


: 
$ 





Fn ae ae ae ae 
WANANANAA 
Nt ee Ne et Nt et et Net ee ee Ne et ee Nee See ee ee ee 


FS Fe te te a ee et ee ae et ee te 


2 





Sener 


AEGIS SBVSARAN 







> 






wl el ee cl el el eel cent cl 


VSS mero 
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POWER DOWN 


024004 
024006 
024004 
155202 


340 


000024 
000026 


$3 1 1g 
gis 











AND UP ROUTINES 








MOV 
CLR 
1$: INC 





ACK RO 
#SPWRDN,@#PWRVEC ::SET UP THE POWER DOWN VECTOR 
#340, a#PWRVEC+2 =2PRIO:7 
:SREPORT THE POWER FAILURE 
AIL MESSAGE POINTER 


28888388882 

















>: .WORD PWRMSG : sPOWER F 
MOV (PC) +, (SP) ZZRESTART AT STAR 
: a START : sRESTART ADDRESS. 
SILLUP: HALT 73 THE POWER UP SEQUENCE WAS STARTED 
BR a ee BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 ;PUT 


THE SP HE 
PURMSG: .ASCIZ <15><12>/RESTARTED FROM POWER FAIL/ 


KW11C BUS REGISTER ADDRESS POINTERS 
' KW11B VECTOR ADDRESS POINTERS 
KW11B DEVICE LEVEL 


COMMAND STATUS REGISTER BIT ee 
COMMON PROGRAM LOCATION(S) 
TSTNUM: 0 sCONTAINS TEST NUMBER ON E 


TIT ITC TILL LILIILITL ELITE ite E LLL T TTT TT TTT TTT 
rr TER BLOCK 









= pk Re meg e Se Se Se Ge Se Be Bs Be Ge Bs Be Se Bs 


i 


+ eeeeeteeexeeeaDEVICE ADDRESSES «**enenaanenaa2 


Csr: 160206 





SEQ 0078 


8B 7 
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CZKWLA.P11 AND UP ROUTINES 

24 Sere RG2: 160002 

$¢ s 0240 RGS : 160004 

B 5 *t$ktenkeneaenees INTERRUPT VECTOR ADDRESSES *eeenneeense 
426 ; 

427 4072 PCVO: 300 

4 / 4074 PSVO: 360 

4 02407 PCVi: 304 

" 0241 PSV1: 360 


, 
skktkkhaahakanaakaak BUS REQUEST LEVEL *«*eennnnncnnne 


024102 000006 BRLV: 6 


4 
‘kkkhkhkhkhkkhhaakzaQ THER ADDRESSES * «aaa aaa aaa aaa neane 


240 


‘~ 


MPMI nhnnAny 
= a, 
SRIFRY wT — 


oo 


5 ee le tee a ee ee ee et at et et et et et ee De DS 








i 
A a ee eee ee ee ee ee ee ee ee eee 







=> 


~~ 





~3< 





GOOEY SOSEEEOOSOESOEOSSSSOOSOS OoOooooooo0on 


4 
ti. 
‘ 

1 

1 

3 


SEQ 0079 


Cc 7 
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INTSW: 0O 
INTREG: 0 
SWT: O 
TPC: 0 
TIMEIN: O 
LOC: 0 
PT: 0 
HZ: 74 
209 000 ECHOB: g bd 0,200.0 

ECHOB1: 0 

EVEN 
ERRPC: 00 
DIGIT: O 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
DIGEND: 0 
0 
0 





-EVEN 
-SBTTL TRAP DECODER 


titi it itt iit Titi ttitiit ti itiit iit i tittititiTi Ty REEKREKREREEKS 


:THIS ROUTINE WIL ILL PICKUP THE LOWER BYTE OF THE ‘TRAP’ INSTRUCTION 
:s0F THES DESIRED ROUT INE THEN us ING No THE ADDRESS OBTAINED iT wie L . 
:*GO TO THAT ROUTINE. > 















4324 STRAP: MOV RO,-(SP) 
4 000002 MOV 2CSP) RO 
TST -(RO) 
= (RO) ,RO 
024360 MOV STRPAD(RO) .RO 
4 RTS RO :260 10 ROUTINE 


3sTHIS IS USE TO HANDLE THE “‘GETPRI’* MACRO 





ONese Stokes concn. coos O'S SS, | 6 





MAIN, 


C7KWLA.P11 


WINN Gt NNN 


PIR ARORA ARR RR EON 
I BS ee ee ee Ne ee ee ae ee ea a es 


rTurory 
Ww 


2520 


2521 


2S2e 


024356 000002 


Seem 
: ae 
437 $3134 
024374 021002 


8 4376 0 Ores 
44 1254 
0244 1574 
0244 1574 


° > 


5 ae ee ek ek a 


4 
4 
4 
4 
4 
4 


&* 








1440 
116 


4504 
051440 


MACY11 ws ne oo 07: rs San one ay 
1 07:3 RAP DECODE 


RTI 


-SBTTL TRAP TABLE 


4 


STRPAD: 


EM1: 


EM2: 


EM3: 


EMG: 


EMS: 





ASCIZ 


eASCIZ 


ASCTIZ 


ASTIZ 


ASTIZ 


; > CALL=TYPDS 
: e CALL=GTSWR 
es Sh Ee 
L=RDCHR 
L=RDOCT 


oe 


ASCII MESSAGES 


SEQ 0087 


scRESTORE THE PSwW 


TRAP+1 (104401) 
TRAP+2( 104402) 
A Lope oy 

TRAP+4 (104404) 
TRAP+5 (104405) 
TRAP+6 (104406) 


TRAP+7 (104407) 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE “‘TRAP’’ INSTRUCTION. 


ROUT INE 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT=-SWR SETTING 4 
FOR CHANGE IN SOF T=SWR 








TEST 
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 


/READ VALUE DIDN'T MATCH WITH EXPECTED/ 


/READY BIT FAIL TO SET/ 


/TIME INTERVAL COUNTER DOESN'T DECREMENT IN ORDER/ 


/BIT #14 IN CSR DIDN'T SET/ 


/B1T #14 IN CSR DIDN*T RESET/ 


/READY BIT DIDN*T SET; YEAR VALUE MAY BE INVALID/ 


SEQ 0082 


ASCII MESSAGES 
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~BO 07:39 


1040 








(1052) 


1 


Late 
| mend 
> 
< 


i 
™ 
Lt 
| 
™ 


-MAIN, 


/READY BIT DIDN*T SET;ONE OR BOTH VALUES/<200> 
CLOCK IS STILL RUNNING/ 
ASCII] /INTERRUPT FAIL TO OCCUR WHILE UPDATING THE CLOCK /<200> 


-ASCI] /READY BIT DIDN*T SET;ONE OR BOTH VALUES/<200> 


~ASCIZ /OF HOUR AND MINUTE MAY BE INVALID/ 
~ASCIZ /ERROR: BIT #15 (DE) FAIL TO SET/ 


-ASCIZ /OF MONTH AND DAY MAY BE INVALID/ 
-ASCIZ /ERROR: CLOCK IS NOT RUNNING/ 


-ASCIZ /ERROR: 


Romy 
cot 
w 
LF | 
<= 
s 
“ = 2 a vs S 
= = = 3 E = 
SSRSSrSRsGeRS LIS! BEGLAS SEAS NGSoN ABMABAB!S NErAsxe 
BENGRSSTNOKS EASES SSRs KENSS BINSN GRAREERR ~SooSeh 
BSILHSSLISSsS BIVSS BIS aX MNEIS Mea REVS S 
= NE REHRERASERGS- SS 
3 


Ww Weew kh. Oc OO — TR MVOMO: Ore rie O 
SS SSS SS RS Se ec tecteat oe 
a SYIABS 


SISLSSBSSE 


wus. wy ne.cwK 


338 





SEUSS NRE ING SRE ARES 


: SF FPF PITTS TT I TNA AAAnninnvnnnwnnnan 


Cree er ee 


MLS 
SOOSSOSOSOSOSSSSCOSOSOSCOSOOOOOCSOOOOOOOCOOOOOCOOOOOOCOC OOOO OOO OSOOOS 
~~ wT wr ~ 
“t wu ~ < ~ 4 R a 
vw wv Fa ww wt | wm ws 
™ ™ ™~ cu ~w ~w ~w ~~ 


SEQ 0083 


ASCII MESSAGES 
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-80 07:39 


™ (1052) 


CZ2KWLA.P11 


-MAIN 





ASCII /PRESET INTERRUPT DIDN'T OCCUR;PROBABLE CAUSE/<200> 


ASCIZ /INTRPT NOT ENABLE OR AND INVALID PRESET VALUE/ 
-ASCIZ /UNEXPECTED INTERRUPT AS INTRP WAS NOT ENABLED/ 


: 
3 
$ 
f 
: 
: 


~ASCIZ /UNEXPECTED INTERRUPT AS SOFTSWT NOT SET/ 


ASCIZ /UNEXPECTED INTERRUPT AS (DE) WAS NOT SET/ 
~ASCIZ /UNEXPECTED AND UNEXPLAINABLE INTERRUPT / 


-ASCIZ /SOFT ERROR/ 





EM17 
EM20: 
EM21 


042440 EMI6: 





pe SD elma pS alt Sa dp oe Po wo Owe > i O44), 4,4," & A 


NOS em 8 
Uo Us ws 


O_O bb 6b 44> & 6 & & b> O'> F4b Fab & O14 


047514 065503 








wy OR. OFM TMAMNMe- MOR. COMM NOOSOA Ne-Nnor SPL 
Snes xy Socrk ene Ae Oe 





SSSSESS SSFBSISIIISSTISSS SSBSIS 33 ssseestaE 
ny memeenbanwemonnemstie oi RARRER RRRRRE ope Oz 336 ae 


ae 
CSOOSCSOSOSSOSSSSSSosooosoeseseceoescseG MUNA 





2532 
2533 
%4 





2531 


SEQ 0084 
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739 





A aie 
- 
> 


-_ 
eo 
. 
*< 
3 
— 
~ 
w 


-MAIN 





S 
Vv 
a A x A 
R : S 
w 
hf Vv A ae Vv 
~ be ~ S ~ 
~~ on a ~ i rr 4 A 
rr @ a Y, z nas 3 
- : 2 : 3 : § y 
3 ¢ “ ” : ¥ 
o — o ta - - 
; = 5 F . 4 ¥ 
— Y fam 9 — 
~ 2 hee ee = ae 2 a4 
2 e 2 . : 2 
ae | 
- 2 . y < < 
: $ : S 
all ~ — ~ - -— 
— uw Ww - & a 
fm 
7 sy ae 3 . 3 3 
a ry om hhc oe > se 
2 2 ¢ : : : z : : 
S ~ 2 is we 8 Ms wo 
: +. = ~ ~ ~ ~ 
oe w | Le 2 
< < ae < < < < < 
c $e r- “s 2 : rn zs 
= = = = = = z = 
Oo wWmorvrre ) wOerFh CO WENO VMI WVOMOUW KwTOwm -&mwTOnvs 
BEMERS Sed-7S OY Seakag SersseaoS—kse Nigaee SHIKS = ASKS 
SSESES & SISSIES BE SeOSgo Hy Sa5SoS3 Sstete Sessa Sass 
© ooo © OQOooooo oO oO SoS | 
— seetSoee RASS Ses sists BEBNG SIBRS 
© 
VRQ 
8 nod ees Re Eee 











4 x 


™ av 


2542 
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C7KWLA.P1 135-MAP-80 0 I MESSAGES 
026542 100062 
2548 02654 110 0511 "st EMSs: -ASCIZ /HARD ERROR: OSCILLATOR SEEMS TO BE INACCURATE’ '’<200> 
926552 042640 051122 051117 
026 021072 9515 50 
026566 114 952101 051117 
scene Geos BN? Serbo 
0 reer 150 
0 6616 021105 
2549 e sco 6 Ser aae EM3<4: -ASCIZ /GOT NO INTERRUPT WITH BPU AT LEVEL 0/7<200> 
0 $668 053440 
0266 050102 
pseeze b30020 
6672 
2550 v5 ee $7148 EMSS: eASCIZ /INTERRUPT OCCUR AT WRONG LEVEL/<200> 
e710 052101 
716 0463516 
e783 046105 
2551 th Ore EM36: -ASCIZ /*DE* BIT IN CSR FAIL TO CLEAR/<200> 
$750 040506 
6756 03011 
67 100122 
2552 $778 085547 DCMSG1: .ASCIZ <200>/THE FOLLOWING VALUES ARE BEING USED/<200> 
SF Si 
# 
b0656 
; 042523 
o 
2553 5 O08 5 DCMSG2: .ASCIZ <200>/ DEVICE ADDRESSES( / 
127054 42523 ee : 
’ 
2554 02) oT 133 DCMSG3: .ASCIZ <200>/ PC INTERRUPT VECTOR ADDRESS(/ 
027074 1122 | 
alt ibes 
| 
0¢ 1 2 9358 
2555 0¢ 26 2 020193 : ,ASCIZ <200>/ ‘PC INTERRUPT VECTOR ADDRESS(2)=/ 
ys 1 ie 
0¢ 50 1117 040440 
Oe 4228¢ 051523 
2556 ¢: | AR 951809 DCMSGS: .ASCIZ <200>/ BUS REQUEST LEVEL (/ 
127176 042525 
7 0 0535105 
027212 000050 











MAIN. MACYT1 (1052) 13-MAR-BO 07: 
C7KWLA.P11 rh 07:39 
2557 7216 06 rt 020117 
e7% 1 040527 
al 
56 Br640d 054516 OrSeep 
06464126 1505 
0405 052514 
0240640 020131 
047060 037651 
042524 
052514 
062524 
0 
95904 050131 
2559 006 
2560 126 620108 
1 1517 020113 
5 51523 besaer 
$20 51040 
1 §2101 053111 
105 1501 052503 
; 054503 052060 
2561 a 7153 051947 
0 O5 bat7ee 
1 <3 51440 
7510 125 0 i 
0 ee 527 
0 440 051123 
2562 403 0 
8 $004 0 
0 02 
2563 | 1122 051117 
5 oa 
1524 11 041440 
Se Gi" 
S568 
2567 





2570 





~ 
SESSNS 
VINO 


144 
1 
17 
1 











40 PAGE 5-29 
ASCI] MESSAGES 


DCMSG6: .ASCIZ 


DCMSG7: .ASTIZ 


DCMSGX: .ASCIZ 
PASMSG: .ASCIZ 





DH1: ASCII 
ASCIZ 
DH2: ASCII 
-ASCIZ 
DH3: ; 
DHS: ASCIZ 
DH4: -ASCIZ 
-ASCIZ 
DHS: -ASTIZ 


-ASCIZ 


<200>/ 


<200>/" ENTER VALUE AFTER (=) IS TYPED’ 


/)=/ 
<200>/THE CLOCK PASSED THE RELATIVE ACCURACY TEST/<200> 


/ERROR TEST SHOULD = WAS CSR/<200> 
/PC BE/ 

/ERROR TEST# CSR /<200> 

/PC/ 

<200>/ERROR PC/<200> 

/ERROR TESI# PRESEC CURSEC CSR/<200> 
/ PC 

/ERROR TEST#/<200> 


/PC/ 


“DO YOU WANT TO CHANGE ANY OF THESE VALUES (Y OR ND)?" 


SEQ 0086 | 





MAIN. MACY11 (1052) 135-MAR-80 07:40 PAGE 5-30 
CZ7KWLA.P11 1 -B0 07:39 ASCII] MESSAGES 
$72 6 iH 0 e0G6 001124 DTI: SERRPC . TSTNUM, GOOD BAD .BADA.0 
2573 8 11 024062 001122 DT2: SERRPC, TSTNUM,BADA,O 
574 0 11 p13: SERRPC.O 
575 0 11 0 4535 016554 DT4: SERRPC . TSTNUM, PRESEC. SECOND .BADA.0O 

0277 65 1122 000000 
0277 001116 026062 000000 DTS: SERRPC. TSTNUM.O 


-END 


SEQ 0087 


MAIN. MACYTT 
CZKWLA.P11 


nH 


ABASE 
ACDw1 
ACDWe = 





ACSR 


TH RNAP a 


— 
nunHHNRRUAUH 


*gregepereececcecs 


falas 
<= 





P 

“wT 

> 

—_j 
2P 
Hunn 






ui 





r 


A. CLK 


900000 
rr walla sy 





160006 


33 





mM 


BUSS ys 


con 


13-maR-80 07:39 


AAPA ANNIE EAI ANI IONIAN 
CAAA IATA IT TV go VA TN CSA TN 


ANA 


rege 


(NAW 


~B0 07:40 PAGE 6 
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33 





2387 


K 7 


1372 
24444 


1483* 


1498 


1507 


1514 


2015* 


| 
SEQ 0088 


2323* 


BADA 


a3: 
eee 


* 


US wn — 
HRORURHHHHRHRHHRHRHRHY 


+3434 Ht HH HH HH Sts st 


See er mn ee et ee ent ee ns fee Oe ee Rew fee Re 


wn 


BIT15 





CNT 
CNTLC 


CNT 1 
aa, se 
CONST 054 


B°S 








MAIN, MACY11 (1052) 
CZ7KWLA.P11 1 ~80 
BAD 001126 


= 001122 





SySR 


see 8 





8 Sha yeete 
BENVaBREn 


am ee ed ee ed ed wd ds a 2 
EAE ESE SESE SESE AE EEE EAE AE AES 


ep. toe 
oo 
0 


SEE EEEETENS 


6 





171 


7 
& 


Co & 
wns 
= Go 


3 3 


135-MAR-80 07: 
07:39 


459* 





mr —fhor 
NNN 


Sees 


21 
5 


~~ 





oOo —X 


Ve 





N= 
— 
S 


Wo 
—N 
CWO 









460* 











1588 
589* 
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1607 
594* 








1052 


1612 
597* 


1131 
24664 





SS 


739 
2088 


CROSS REFERENCE TABLE -- USER SYMBOLS 


468* 
707 
846 


743 


2387 
1249 


983 
1345 


2208 


1801 
61 
11; 


2039 


1416 


1062 
1441 


2228 





777 


1639 


1073 
1659 





779 


1954 
1077 
1684 








783 


7 
251 


2067" 


2120 


2128 


810 


2124 


2138 


751 


853 


" 7 
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CZ7KWLA.P11 1 -B0 07:39 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0090 
016024 2006 2008+  2019% 
01 ote 
0161 2029* 20428 
ete = = 
ss 





COUN 096166 
COUNTR 1083 2163* 2170" 2177% 2192% 2195% 2205* 2210* 2225s 
Chr SRN 
CSR 0 1662 479 486 









CONOUI Ww 
REPELS TE ESE 





me 









— nO 
oe 


; 
e 
4 


—_ 
Sos N 
iw 
—_ 





; 
ee Se Se Se 


BeegaezaeERe 


ee ee SS 


$e 








1 
1 
1 
1 
1 
1 


ed weed eed weed ceed ed 


1 
1 
1 
1 
1 
1 





Ss 





2076. 3 3158s 2 2147 2 1 : 
$b45 2182 2 2206 2 $358 : 


— 


WOO 


VI~wW S 
SF5 or! 


NN Nc. ~~ Se 


mE 


Oo-Oon— 










7 

1 

1 

i 1 
DDISP = 17 144 
DECOCT 1O¢63 vs 
DELAY 1 
patron 1 21514 
VCOD Q7 409 
DHT OS P48i j 09 “ite 137, 42s«8HSt( 
DH2 7517 13 93 98 120 138 134 147 152 
ae 
PNGONT 3 ] 179 1606 1609 1614 447 

& & 

ae fet I gx 
DIS 00700 She 


-MAIN. MACY11 (1052) 
1 ~B0 07:39 


CZKWLA.P11 


DISPLA 





WstWrl—O 


FPUETUETESTUCTEETICTI ETI CMIrCTETerrrrrecrrr rrer 


* : aad = 


FLAG.2 


001142 


SN 
OFS 


FOESN 
Sapa 


roa 


FUP ES SVP 
wis = 
Ww 
N£Oror 


Sw 
NW wus 


x 5ONC 


MESSRS TS 


: 


we( 


SOF 


ERR OADS 


ISSOSSs 


MARAT 





024212 


1 “85 07:40 PAGE 6-3 


NW 
WGN 


ws 
WD eed eet ee 
BEWEISSE 


MPUPVMIN DM IMINSNINININITY 
VIVIAN *s 


RRS 
eve 





SSRI 





een ceed em eed eed weed aed eee ee eee ee eed eed od = med awed 


09 
13 
: 
: 
‘ 
: 
es 





254% 
868 









ee 


eestve 


VIMIVIVIVIV 
NaS 
2zRaR 


Nm 





RE 


Runny 


a 
* 
77# 








2387* 
883 





2389* 
886 





1 
2204 
296* 


nN 7 
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24898 





2177 = - 22408 
24398 

115 138 143 185 
99 121 126 132 
1079 
1444 
2135 
1316 





SEQ 0097 
25728 
148 153 
1a Ue 
2164 iH 
1324* 1344 


MAIN. 


€Z7KWLA.P11 





LOC 
LOGTST 





ee ee ee ee eee ee eS 


1350 


— UI & 
RE 


VELL L LeeLee 





MACY11 (1052) 7 -80 07: 
1 -B9 07: 


1358* 


867 





2386 





1493* 
1058 


1375* 
1486 


532* 


2000 
1069 


1413* 
19954 


24114 


6-4 
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2326* 


1174 





1520s 


2333 





2335 


2355 


2358« 


24798 


SEQ 0092 
24738 





-MAIN, 
CZ7KWLA.P11 


5e93 


583 


NUM 
NUMBR 


2crececee 
ee « e 

5 

—_ 














Pas = 


* 








13-MAR-80 07: 
07:39 
1830 18964 
1909* ‘aie 
1914 193 
1921+ 19394 
1899 19324 
1918 19364 
1682 173/* 
264 
1646 Lf4 + 
1868 «19078 
1709* 1718 
513* 531* 
1947* 1957 
1960* 19784 
<0) 5100 
1563* 1713* 
1878 1925 
370* 
365 372* 
144 
144 
ind 
lA 
whee 
mn) 
145* 
14 
352% 
144 
144 
1464 
144 
144 
144 
144 
144 
144 
ay 
73* 
4ase 
$390 





40 PAGE 6-5 
1919 19314 
24534 
24504 
1581 1623 
tee 1721 

535 24108 
1964 19774 
1726* 1730 
1970 25604 
2271 2275 
2289* 2297 
1866 
2575 

373 24384 

2295 
$ % 
653* 


= fun 
i 


Cc 8 
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1724* 2460 


244548 


2283 2285* 2292* 2293* 24278 
2298* 24298 





1299* 1408s 
25138 
1054 1065 1136 1148 1154 
1667 1686 2117 2122 2126 2130 


SEQ 0093 


1192 13525 
21918 


MAIN. MACY11 (1052) 135-MAR-80 07: 
13 mA bo 07:39 


CZKWLA.P11 


RDYCK 017120 
RDYCK1 017040 
RE 4426 


© 

fw 
~ 
oO 


POPonoreae 
NOU =r 
Sononer 





714 
170 
HE 
= $998 
= 155896 
SR = 15 # 
STACK = 1 
START 
STKLMT= 74 
STR ) ; 
SWITCH 
Whe 4 












= 
oO 
WOSELESTSS 


EN 
= & 





SSECKECELELL SELES 





40 PAGE 6-6 
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22214 
1443 


584* 
596 


389 
2372 
1726 


353 


1472 


585 
24164 


405 


2376 

1727* 

2382s 
382 


22024 

587* 591 24154 

410 429 431 

939 993 1001 
1275 1328 1335 
1763 2116* 2121* 
1081 1135" 1162* 
1503 1691 1790 

567* 577 584 

778 799 800 
1147s 1158 1164 
1952* 2075* 2146 





1155* 1158 1164* 1167 


2390 
24598 
23587 =2389 = 2390 





SEQ 0094 


1222 1234 
1494 1521* 
2259 24218 
1281 1346* 

699* 716* 
1519 1807 
24238 


E 
-MAIN. MACY11 30A(1052) 13-MAR-80 07:40 PAGE 6-7 . 
CZKWLA.P11 135-MAR-80 07:39 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0095 



























q 
19734 
75 7, 
i 
6 909 9594 é 
ft 976 10434 
6 1070 1122a 
2 1378 1381 13988 
34 es 
2 Os ie 
15 1302 1 Bes 
fie rn 
TBITVE= 000014 14M 
TONT.— CC 2 830* 844% 2075 20798 
TEMP 024176 4674 
TEMP? =¢. 18 ees 24758 
imeIN , ~~ 
TIMEND 005354 61 632 
HIME 0600 69 721 7 oy 
He O16 658s 700" 1314" 1348* 1685* 2011 20218 
° 
IMINV F oeeee 
HIMRIN. 03 $33 23428 
TIMTAY Oe $91 
TKVEC = Of 14 
TPVEC = OC 14a 
ra sg 
TRIVEC® 14a 
TSTNUM 38 24064 2572 2573 2575 257% 
TST10 
TST1I 
IStt¢ 
TST? 
TST14 
TST15 
TST16 





F 8 
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CZKWLA.P11 135-MAR-80 07:39 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0096 
TSTI7 §=60114246 1 
TST 
i Bish 
TST4 005166 
TST5 2878 
TST6 540 
TST7 =©906010 
TYPDS = 104405 1771 1785 1802 1806 1810 2376 25134 
TYPE = 104401 377 378 380 381 382 383 384 386 387 430 
1558 1559 1573 1591 1598 1599 1622 1750 1751 1821 1833 
1878 1925 1962 1970 2255 2257 2261 2273 2277 2303 2308 
2376 2380 2382 2384 2385 2387 2 2390 251354 
TYPOC = vat v4 2276 2307 2370 2382 2387 2388 25134 
TYPON = 104404 
TYPOS = 1044 3 
WAIT are: 987 1139 1157 1166 20284 
WAIT 16226 745 20854 
WAIT2 016 845 20754 
das 8 4 
4) 1733* 246498 
BE . 16314 
eeewew (J 2381 
020510 3814 
20 $ say" 
20 23814 
9205 3814 2387 
001} 334255" 2382 
Bey f 5 89« 356 
301 53 
68 
0011 3p 2387 
ee *.* 
v1 . - 
0204660 25804* 
tat 2382" 2513 
001 , 252 


°°. 2 * & 
SO 
x = 
- 
~ 
=, 


tt 
SORUROC 


es 


386 1599 1751 2380 2382 2387 2388 


~+ 
Pin 


oe 

x 

~~ 

Mr = Pururury 





SEQ 0097 | 
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G 


13-MAR-B0 07:40 PAGE 6-9 


MACY11 30A(1052) 
15-MAR-B0 07:39 


C7KWLA.P11 


-MAIN 





x 
Ww 
™ 
Ww 
. 
Ww 
™ 
rd 
Ww 
™ 
es nN 
ma a 
™ ™ 
N nw o mS 
= 
m Mata rs ma mm 
™ MIN ™ ™ ™ ™~ 





* 
FPP S755 






“ 
2513 
2389* 
S3ao= 2388 
2380 
ae 


at 
— 2 








ARARAAAIAATI ae — 


Sune ev rw Ww wa WOO IE ren a ee 
~ 
ret ~ wm | 6% ftv wh (Ws 











Oo 
RRRRROAA ES Se 


- li te lite gi 
EE SS Se eee CO = 


SBBSRSSSSSSVISIVSSVNSSNSSNSSSSSNSS SSNS NOVO SNVVS NSS SNSSS 


wm> 


1338933325 ibd. comosermindan a 


RR QRRAAAHRSESS SENSES EES Sos Ba eieo Th 



















MAIN. MACYI1 (1052) 
C7KWLA.P11 1 ~-80 


as 





sat 


4 
1 
1 
1 
4 
1 
1 
1 
1 


: 





: 
: 


YD el 


3 3: = 
wa as 
~ ~ 
= 

—'i od 
—_— > 
—_——= PTY) 
on NSS SRN 


3 
=m 
S383 













ga2e2 
35 


PAAAM 









Aw 
BS 
—_— a) 
— Fe 
RR 
Os 


rw ie 
—<g “<9 ‘J 
ome TT 
aS * 
NERS 
i 
— — 
v= 


1 
07:39 


35-MAR-80 07:40 PAGE 6-10 


334 


ee 






w 





“ 
Sesto 


Ww 


eee 


Nm 


SF SVE 


23 
28 23904 
387 
35 wy 2513 
] 513 
ae 
» 23764 
5 
$5 
a 


VwIw 
rs 
we 


rr 








254 


5624 
14074 


2376* 


1598 


255 


255 


6104 


2389 


2380 


2376 
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2380 2387 2389 
6484 6854 7344 7604 7738 857# 9024 9634 
2382 2387 
2382 438962387) = 2389 
510 610 8 5 734 760 77 
1298 1289 2376 2387 289 2390 , 
685* 734* 760* 773s 


562* 610* * 
207 2876: 2389 


SEC 0098 


11298 


857 


857* 





-MAIN. 


CZKWLA.P11 






ett 


SASTA 


$x 


MACY11 30A(1052) 
135-MAR-80 


= eeeere 


= 001000 







Mong rrr 

. *) LAA 
WOBAVUSS 
= Fs v2et 


















13-MAR-80 07: 
07:39 

334 

334 

334 

ur 

334 

124 4494 
"es ae 
339 2380 
334 @€=6—92380 
254 251 
25134 
251354 
oi 

3% 2376* 
se 
ee $3) 3 
se 5382 
$ 2513 
as s2!3 
23844 513 

om 

: 349 


Nm 
Ww 
oN 


ef 





oo 


I 8 
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S108 5624 #6108 648% Set? 
, 12638 ra 349 «= 7608 0—ss 773 
2387 2389s ; 

2513 

361 
0oee 32m 33@ 0254 2554 3774 # 3798 #3808 
1559@ 1560 18334 18444 2163 #2170 177 3684 
2387 4 =6_- 2 38B# «= «2389s 23900 BBA : ' : 











SEQ 0099 
8578 9024 9634 
3834 4304 917 
2376 25814 


2380 


J 8 
qee-60 07:40 


MAIN. MACY11 30A(1052) 1 PAGE 7 
1 -80 07:3 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0100 


CZ7KWLA.P11 


ND 
Sees 
@ 
Go 
re 


793 824 849 
917 932 2163 2170 2177 





















17a 
sie 
148 464 476 529 539 553 666 677 711 714 742 749 786 
795 805 816 827 841 852 866 74 921 9 36 943 971 990 998 
1998 1928 ine? 1996 1097 1142 1146 1151 1169 1173 1194 1 1319 13 
1 1353 1 13 1380 1422 1432 1458 1467 =: 1476 1490 1 1508 8=s- 1151 
secape ag 1664 1689 1876 1916 1923 as 2 2 dee de ea ger 2354 82357 
GETPRI 14m o3ee 
i ig Be 2 
NEWTST 1256" 1207 510 562 610 648 685 734 760 773 857 902 963 1129 1178 
144 +4 23583 2390 
SH 144 1 2383 2390 
RDYCK 2124 863 871 968 1054 1065 1094 1148 1154 1163 1192 1325 1359 1376 
aspcat 7 1661 1667 17 0 ocTIC. de. oS. OATH OSS 
SCOPE 14a 449 10 562 610 648 685 734 760 773 857 902 963 1129 1178 
1e%9 1407 2376 
SETPRI 14a 
SETTRA 25134 
SETUP 144 254 
IP 144 
SLASH 144 
STARS \en 33 449 510 362 10 8 5 734 ? 773 57 
3: 1) 1178 1 1407 = 2376 =—s 2380 2581 2363 2883 2584 2385 2386 2387 2388 
é eS 2407 Ss 251 
SU 14a 54a 
TRMTRP 251354 
144 
C 144 2376 
7" 148 = 255 
14” 
7a 144 | 
Y 144 2 2387 alee 
TYPTXT 144 a 381 382 385 384 385 430 4358 1558 1559 1560 
ihe 1750 =‘: 1821 1844 
14a 
144 = 449 510 562 610 648 685 734 760 773 857 902 965 1129 1178 





z 
" 

wm 
c 






SSSETM 2548 

SSSKIP 148 

.EQUAT 7a 14 
» HEADE oe 

KT 6” ¢8 
SETUP oF 252 


MAIN. macytt (1052) 
-80 


CZ7KWLA.P11 





SPRL KH LK LLL LLL Leek 


ERRORS DETEC 


RUN@=TIME RAT 
CORE USED: 


TED: 


i; 15 





0 
Ty oY eth ta eras LST/CRF=CZKWLA,P11 
RUN~T 





ABE 


07:39 


5 PAGES) 


Kk 8 
-80 07:40 PAGE 7-1 
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SEQ 0101 


